[project @ 2003-02-17 15:13:56 by simonpj]
authorsimonpj <unknown>
Mon, 17 Feb 2003 15:13:56 +0000 (15:13 +0000)
committersimonpj <unknown>
Mon, 17 Feb 2003 15:13:56 +0000 (15:13 +0000)
Wibbles to ST Monad methods; I forget why

GHC/ST.lhs

index ab1a1b1..65bf835 100644 (file)
@@ -45,14 +45,14 @@ instance Monad (ST s) where
     {-# INLINE return #-}
     {-# INLINE (>>)   #-}
     {-# INLINE (>>=)  #-}
-    return x = ST $ \ s -> (# s, x #)
-    m >> k   =  m >>= \ _ -> k
+    return x = ST (\ s -> (# s, x #))
+    m >> k   = m >>= \ _ -> k
 
     (ST m) >>= k
-      = ST \ s ->
+      = ST (\ s ->
        case (m s) of { (# new_s, r #) ->
        case (k r) of { ST k2 ->
-       (k2 new_s) }}
+       (k2 new_s) }})
 
 data STret s a = STret (State# s) a