X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FRead.hs;h=172a4c2ce3f56b5da92466494b00f54ae8b04105;hb=10de2c656f74562b662c22928be85e1b3ccda796;hp=bcb2d0930ab395ab8f70bc0cfc99c723b5a906f9;hpb=b0f8af46ab1a89f107f2d678d17b765cd97ff59f;p=ghc-base.git diff --git a/Text/Read.hs b/Text/Read.hs index bcb2d09..172a4c2 100644 --- a/Text/Read.hs +++ b/Text/Read.hs @@ -1,4 +1,4 @@ -{-# OPTIONS_GHC -fno-implicit-prelude #-} +{-# OPTIONS_GHC -XNoImplicitPrelude #-} ----------------------------------------------------------------------------- -- | -- Module : Text.Read @@ -21,36 +21,36 @@ module Text.Read ( -- * The 'Read' class - Read(..), -- The Read class - ReadS, -- String -> Maybe (a,String) + Read(..), -- The Read class + ReadS, -- String -> Maybe (a,String) -- * Haskell 98 functions - reads, -- :: (Read a) => ReadS a - read, -- :: (Read a) => String -> a - readParen, -- :: Bool -> ReadS a -> ReadS a - lex, -- :: ReadS String + reads, -- :: (Read a) => ReadS a + read, -- :: (Read a) => String -> a + readParen, -- :: Bool -> ReadS a -> ReadS a + lex, -- :: ReadS String #if defined(__GLASGOW_HASKELL__) || defined(__HUGS__) -- * New parsing functions module Text.ParserCombinators.ReadPrec, - L.Lexeme(..), - lexP, -- :: ReadPrec Lexeme - parens, -- :: ReadPrec a -> ReadPrec a + L.Lexeme(..), + lexP, -- :: ReadPrec Lexeme + parens, -- :: ReadPrec a -> ReadPrec a #endif #ifdef __GLASGOW_HASKELL__ - readListDefault, -- :: Read a => ReadS [a] - readListPrecDefault, -- :: Read a => ReadPrec [a] + readListDefault, -- :: Read a => ReadS [a] + readListPrecDefault, -- :: Read a => ReadPrec [a] #endif ) where #ifdef __GLASGOW_HASKELL__ import GHC.Read -#endif +#endif #if defined(__GLASGOW_HASKELL__) || defined(__HUGS__) import Text.ParserCombinators.ReadPrec import qualified Text.Read.Lex as L -#endif +#endif #ifdef __HUGS__ -- copied from GHC.Read