X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FPrelST.lhs;h=8cf8f372fba61af7cf02e4524cce88af7bf3acaf;hb=90d750cd14f2fb3e86536cd03d18ff1b6b179d74;hp=1aca5bcbab5d7f26b59738158680f91a648a19ea;hpb=1e3cd905e3f40b03887d2511b449cd4de4e2dc46;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelST.lhs b/ghc/lib/std/PrelST.lhs
index 1aca5bc..8cf8f37 100644
--- a/ghc/lib/std/PrelST.lhs
+++ b/ghc/lib/std/PrelST.lhs
@@ -1,6 +1,9 @@
+% ------------------------------------------------------------------------------
+% $Id: PrelST.lhs,v 1.21 2001/09/26 15:12:37 simonpj Exp $
 %
-% (c) The GRASP/AQUA Project, Glasgow University, 1992-1996
+% (c) The University of Glasgow, 1992-2000
 %
+
 \section[PrelST]{The @ST@ monad}
 
 \begin{code}
@@ -8,11 +11,11 @@
 
 module PrelST where
 
-import Monad
-import PrelShow
 import PrelBase
-import PrelGHC
-import PrelNum ()	-- So that we get the .hi file for system imports
+import PrelShow
+import PrelNum
+
+default ()
 \end{code}
 
 %*********************************************************
@@ -108,9 +111,9 @@ runST :: (forall s. ST s a) -> a
 runST st = runSTRep (case st of { ST st_rep -> st_rep })
 
 -- I'm only letting runSTRep be inlined right at the end, in particular *after* full laziness
--- That's what the "INLINE 100" says.
+-- That's what the "INLINE [0]" says.
 -- 		SLPJ Apr 99
-{-# INLINE 100 runSTRep #-}
+{-# INLINE [0] runSTRep #-}
 runSTRep :: (forall s. STRep s a) -> a
 runSTRep st_rep = case st_rep realWorld# of
 	      		(# _, r #) -> r