X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=blobdiff_plain;f=Data%2FSTRef.hs;h=d261cbf9d2abdba59001751130af5d9eb7f5f704;hp=3edfb871ae33310be20c2fe330e45b6b3438ef5d;hb=7316246c1797d46f5757ae156486f09b3db083d9;hpb=2436086e76439e5e71bd2960b53cd9099d69cd0c diff --git a/Data/STRef.hs b/Data/STRef.hs index 3edfb87..d261cbf 100644 --- a/Data/STRef.hs +++ b/Data/STRef.hs @@ -32,11 +32,6 @@ import GHC.STRef import Hugs.ST #endif -import Data.Typeable - -#include "Typeable.h" -INSTANCE_TYPEABLE2(STRef,stRefTc,"STRef") - -- |Mutate the contents of an 'STRef' modifySTRef :: STRef s a -> (a -> a) -> ST s () modifySTRef ref f = writeSTRef ref . f =<< readSTRef ref