X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=Text%2FParserCombinators%2FReadP.hs;fp=Text%2FParserCombinators%2FReadP.hs;h=c05b98358f1f2c2712c68a29e56b5f65d9f4494a;hb=b22c13749df09e801e302a9d38e494dd9b04d784;hp=f478230e2caf6ca6458b98f4485d4222c56831b1;hpb=b934ba518672b04e5f5fa0ce50cd695d167523ad;p=ghc-base.git

diff --git a/Text/ParserCombinators/ReadP.hs b/Text/ParserCombinators/ReadP.hs
index f478230..c05b983 100644
--- a/Text/ParserCombinators/ReadP.hs
+++ b/Text/ParserCombinators/ReadP.hs
@@ -120,12 +120,7 @@ instance MonadPlus P where
 -- ---------------------------------------------------------------------------
 -- The ReadP type
 
--- newtype temporarily turned into data
--- until compiler bug as found on 26 July 2003 is fixed;
--- contact SPJ or ralf@cwi.nl
---
-data ReadP a = R (forall b . (a -> P b) -> P b)
--- newtype ReadP a = R (forall b . (a -> P b) -> P b)
+newtype ReadP a = R (forall b . (a -> P b) -> P b)
 
 -- Functor, Monad, MonadPlus