From 5803fbf18934b2e3f5b911002a405b54f3afdb22 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Mon, 12 May 2003 10:15:00 +0000
Subject: [PATCH] [project @ 2003-05-12 10:15:00 by ross] mark Text.Read as
 non-portable, and make a bit more available in Hugs.

---
 Text/Read.hs |   21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/Text/Read.hs b/Text/Read.hs
index c2fc39b..5ba1fcb 100644
--- a/Text/Read.hs
+++ b/Text/Read.hs
@@ -7,12 +7,12 @@
 -- 
 -- Maintainer  :  libraries@haskell.org
 -- Stability   :  provisional
--- Portability :  portable
+-- Portability :  non-portable (uses Text.ParserCombinators.ReadP)
 --
 -- The "Text.Read" library is the canonical library to import for
--- 'Read'-class facilities.  It offers an extended and much improved
--- 'Read' class, which constitutes a proposed alternative to the 
--- Haskell98 'Read'.  In particular, writing parsers is easier, and
+-- 'Read'-class facilities.  For GHC only, it offers an extended and much
+-- improved 'Read' class, which constitutes a proposed alternative to the 
+-- Haskell 98 'Read'.  In particular, writing parsers is easier, and
 -- the parsers are much more efficient.
 --
 -----------------------------------------------------------------------------
@@ -28,11 +28,13 @@ module Text.Read (
    readParen, 		-- :: Bool -> ReadS a -> ReadS a
    lex,			-- :: ReadS String
 
-#ifdef __GLASGOW_HASKELL__
+#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__)
    -- * New parsing functions
    module Text.ParserCombinators.ReadPrec,
    L.Lexeme(..),	
    lexP,		-- :: ReadPrec Lexeme
+#endif
+#ifdef __GLASGOW_HASKELL__
    readListDefault,	-- :: Read a => ReadS [a]
    readListPrecDefault,	-- :: Read a => ReadPrec [a]
 #endif
@@ -41,6 +43,15 @@ module Text.Read (
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Read
+#endif   
+#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__)
 import Text.ParserCombinators.ReadPrec
 import qualified Text.Read.Lex as L
 #endif   
+
+#ifdef __HUGS__
+-- copied from GHC.Read
+
+lexP :: ReadPrec L.Lexeme
+lexP = lift L.lex
+#endif
-- 
1.7.10.4