diff options
| author | panne <unknown> | 2003-08-22 08:58:31 +0000 |
|---|---|---|
| committer | panne <unknown> | 2003-08-22 08:58:31 +0000 |
| commit | 217cc5bfb68389f1857ca4ccfe064b6df1d140da (patch) | |
| tree | a8f684d53cea53e08f5e9e6616a9c6c98173afad /libraries/base/Text | |
| parent | d05469043d9e7fbc6c70a575865ff88cf08048ec (diff) | |
| download | haskell-217cc5bfb68389f1857ca4ccfe064b6df1d140da.tar.gz | |
[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.
Diffstat (limited to 'libraries/base/Text')
| -rw-r--r-- | libraries/base/Text/ParserCombinators/ReadP.hs | 2 | ||||
| -rw-r--r-- | libraries/base/Text/Read/Lex.hs | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/libraries/base/Text/ParserCombinators/ReadP.hs b/libraries/base/Text/ParserCombinators/ReadP.hs index ab84419414..6b8475fa8a 100644 --- a/libraries/base/Text/ParserCombinators/ReadP.hs +++ b/libraries/base/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/libraries/base/Text/Read/Lex.hs b/libraries/base/Text/Read/Lex.hs index ff63aa1bc4..5273c4f50c 100644 --- a/libraries/base/Text/Read/Lex.hs +++ b/libraries/base/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 |