[project @ 2003-08-22 08:58:30 by panne]

Added a workaround for the Haddock problems introduced by the circular
module dependencies regarding Unicode handling.

diff --git a/GHC/Read.lhs b/GHC/Read.lhs
index aba24ff..cc3c541 100644 (file)
--- a/GHC/Read.lhs
+++ b/GHC/Read.lhs
@@ -65,7 +65,9 @@ import Data.Maybe
 import Data.Either
 
 import {-# SOURCE #-} GHC.Err          ( error )
+#ifndef __HADDOCK__
 import {-# SOURCE #-} GHC.Unicode      ( isDigit )
+#endif
 import GHC.Num
 import GHC.Real
 import GHC.Float

diff --git a/Text/ParserCombinators/ReadP.hs b/Text/ParserCombinators/ReadP.hs
index ab84419..6b8475f 100644 (file)
--- a/Text/ParserCombinators/ReadP.hs
+++ b/Text/ParserCombinators/ReadP.hs
@@ -51,7 +51,9 @@ module Text.ParserCombinators.ReadP
 
 import Control.Monad( MonadPlus(..) )
 #ifdef __GLASGOW_HASKELL__
+#ifndef __HADDOCK__
 import {-# SOURCE #-} GHC.Unicode ( isSpace  )
+#endif
 import GHC.Base
 #else
 import Data.Char( isSpace )

diff --git a/Text/Read/Lex.hs b/Text/Read/Lex.hs
index ff63aa1..5273c4f 100644 (file)
--- a/Text/Read/Lex.hs
+++ b/Text/Read/Lex.hs
@@ -35,7 +35,9 @@ import Text.ParserCombinators.ReadP
 import GHC.Base
 import GHC.Num( Num(..), Integer )
 import GHC.Show( Show(..) )
+#ifndef __HADDOCK__
 import {-# SOURCE #-} GHC.Unicode ( isSpace, isAlpha, isAlphaNum )
+#endif
 import GHC.Real( Ratio(..), Integral, Rational, (%), fromIntegral, 
                 toInteger, (^), (^^), infinity, notANumber )
 import GHC.List