From: sof Date: Mon, 6 Oct 1997 17:30:16 +0000 (+0000) Subject: [project @ 1997-10-06 17:30:16 by sof] X-Git-Tag: Approx_2487_patches~1417 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=309d3554be6c7024b2290adc3b0b43702cf7f7ce;p=ghc-hetmet.git [project @ 1997-10-06 17:30:16 by sof] Avoid unnecessary module dependency (PrelBase.$) --- diff --git a/ghc/lib/ghc/UnsafeST.lhs b/ghc/lib/ghc/UnsafeST.lhs index 4a9c705..f185990 100644 --- 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