X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FRead.lhs;h=2b9c4486195f2cb161b60be749b45a24a323e860;hb=7b379240e55ec4e19c3f64b112d696f78ac5f851;hp=aba24ff912f17f455a2ea9442fbd22e1afe2e940;hpb=14c3d7f368a6ec5e760b2fd57218171eeaf53a29;p=ghc-base.git

diff --git a/GHC/Read.lhs b/GHC/Read.lhs
index aba24ff..2b9c448 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
@@ -153,12 +155,23 @@ read s = either error id (readEither s)
 lex :: ReadS String		-- As defined by H98
 lex s  = readP_to_S L.hsLex s
 
+-- | Read a string representation of a character, using Haskell
+-- source-language escape conventions.  For example:
+--
+-- > lexLitChar  "\\nHello"  =  [("\\n", "Hello")]
+--
 lexLitChar :: ReadS String	-- As defined by H98
 lexLitChar = readP_to_S (do { (s, _) <- P.gather L.lexChar ;
 			      return s })
 	-- There was a skipSpaces before the P.gather L.lexChar,
 	-- but that seems inconsistent with readLitChar
 
+-- | Read a string representation of a character, using Haskell
+-- source-language escape conventions, and convert it to the character
+-- that it encodes.  For example:
+--
+-- > readLitChar "\\nHello"  =  [('\n', "Hello")]
+--
 readLitChar :: ReadS Char	-- As defined by H98
 readLitChar = readP_to_S L.lexChar