[project @ 1997-10-06 17:30:16 by sof]

[ghc-hetmet.git] / ghc / lib / ghc / UnsafeST.lhs

diff --git a/ghc/lib/ghc/UnsafeST.lhs b/ghc/lib/ghc/UnsafeST.lhs
index 4a9c705..f185990 100644 (file)
--- a/ghc/lib/ghc/UnsafeST.lhs
+++ b/ghc/lib/ghc/UnsafeST.lhs
@@ -26,11 +26,11 @@ import GHC
 
 
 unsafeInterleaveST :: ST s a -> ST s a
-unsafeInterleaveST (ST m) = ST $ \ s ->
+unsafeInterleaveST (ST m) = ST ( \ s ->
     let
        (r, new_s) = m s
     in
-    (r, s)
+    (r, s))
 
 unsafePerformPrimIO    :: PrimIO a -> a
        -- We give a fresh definition here.  There are no