From 833c0251f3de7eafbc42b4ce67360e84afd071f4 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Fri, 22 Aug 2003 08:58:31 +0000
Subject: [PATCH] [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.

---
 GHC/Read.lhs                    |    2 ++
 Text/ParserCombinators/ReadP.hs |    2 ++
 Text/Read/Lex.hs                |    2 ++
 3 files changed, 6 insertions(+)

diff --git a/GHC/Read.lhs b/GHC/Read.lhs
index aba24ff..cc3c541 100644
--- 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
--- 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
--- 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
-- 
1.7.10.4