From 797f06996064543d218c0ac2b8bca08f060ae9e9 Mon Sep 17 00:00:00 2001 From: sewardj Date: Tue, 23 Nov 1999 10:03:41 +0000 Subject: [PATCH] [project @ 1999-11-23 10:03:41 by sewardj] wibble --- ghc/interpreter/lib/Prelude.hs | 1 - ghc/lib/hugs/Prelude.hs | 1 - 2 files changed, 2 deletions(-) diff --git a/ghc/interpreter/lib/Prelude.hs b/ghc/interpreter/lib/Prelude.hs index 406d775..3ada1bc 100644 --- a/ghc/interpreter/lib/Prelude.hs +++ b/ghc/interpreter/lib/Prelude.hs @@ -1806,7 +1806,6 @@ newtype ST s a = ST (s -> (a,s)) data RealWorld type IO a = ST RealWorld a - --primRunST :: (forall s. ST s a) -> a primRunST :: ST RealWorld a -> a primRunST m = fst (unST m theWorld) diff --git a/ghc/lib/hugs/Prelude.hs b/ghc/lib/hugs/Prelude.hs index 406d775..3ada1bc 100644 --- a/ghc/lib/hugs/Prelude.hs +++ b/ghc/lib/hugs/Prelude.hs @@ -1806,7 +1806,6 @@ newtype ST s a = ST (s -> (a,s)) data RealWorld type IO a = ST RealWorld a - --primRunST :: (forall s. ST s a) -> a primRunST :: ST RealWorld a -> a primRunST m = fst (unST m theWorld) -- 1.7.10.4