From: ralf <unknown>
Date: Wed, 30 Jul 2003 08:13:16 +0000 (+0000)
Subject: [project @ 2003-07-30 08:13:16 by ralf]
X-Git-Tag: nhc98-1-18-release~563
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b22c13749df09e801e302a9d38e494dd9b04d784;hp=b934ba518672b04e5f5fa0ce50cd695d167523ad;p=ghc-base.git

[project @ 2003-07-30 08:13:16 by ralf]
Rolled back to newtype now that the compiler does not panic anymore
for the module Data/Generics/Text.hs.
---

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