X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FSTRef.hs;h=5002ee7fde742a459ae9ff28ca891e15572d46c7;hb=HEAD;hp=10853bea34caa8a0814820391435bf6356542721;hpb=2570f264ed329f04017d507250494eb0ab680d64;p=ghc-base.git diff --git a/Data/STRef.hs b/Data/STRef.hs index 10853be..5002ee7 100644 --- a/Data/STRef.hs +++ b/Data/STRef.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE CPP #-} + ----------------------------------------------------------------------------- -- | -- Module : Data.STRef @@ -13,12 +15,12 @@ ----------------------------------------------------------------------------- module Data.STRef ( - -- * STRefs - STRef, -- abstract, instance Eq - newSTRef, -- :: a -> ST s (STRef s a) - readSTRef, -- :: STRef s a -> ST s a - writeSTRef, -- :: STRef s a -> a -> ST s () - modifySTRef -- :: STRef s a -> (a -> a) -> ST s () + -- * STRefs + STRef, -- abstract, instance Eq + newSTRef, -- :: a -> ST s (STRef s a) + readSTRef, -- :: STRef s a -> ST s a + writeSTRef, -- :: STRef s a -> a -> ST s () + modifySTRef -- :: STRef s a -> (a -> a) -> ST s () ) where import Prelude