X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FPrettyPrint%2FHughesPJ.hs;fp=Text%2FPrettyPrint%2FHughesPJ.hs;h=ba43d229902babcba9297beb8f9d2ab9b6a3b0e1;hb=0be227fdbf8ff48f36635a25a767f32ec5f895c4;hp=f2cdac24e4a394c0c19cae83adb59fde601b7849;hpb=50b70d1be6e17a644dc3b5c80592cf7c5b339fd9;p=ghc-base.git

diff --git a/Text/PrettyPrint/HughesPJ.hs b/Text/PrettyPrint/HughesPJ.hs
index f2cdac2..ba43d22 100644
--- a/Text/PrettyPrint/HughesPJ.hs
+++ b/Text/PrettyPrint/HughesPJ.hs
@@ -8,7 +8,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- John Hughes\'s and Simon Peyton Jones\'s Pretty Printer Combinators
+-- John Hughes's and Simon Peyton Jones's Pretty Printer Combinators
 -- 
 -- Based on /The Design of a Pretty-printing Library/
 -- in Advanced Functional Programming,
@@ -226,17 +226,17 @@ infixl 5 $$, $+$
 isEmpty :: Doc    -> Bool;  -- ^ Returns 'True' if the document is empty
 
 empty   :: Doc;			-- ^ An empty document
-semi	:: Doc;			-- ^ A \';\' character
-comma	:: Doc;			-- ^ A \',\' character
-colon	:: Doc;			-- ^ A \':\' character
+semi	:: Doc;			-- ^ A ';' character
+comma	:: Doc;			-- ^ A ',' character
+colon	:: Doc;			-- ^ A ':' character
 space	:: Doc;			-- ^ A space character
-equals	:: Doc;			-- ^ A \'=\' character
-lparen	:: Doc;			-- ^ A \'(\' character
-rparen	:: Doc;			-- ^ A \')\' character
-lbrack	:: Doc;			-- ^ A \'[\' character
-rbrack	:: Doc;			-- ^ A \']\' character
-lbrace	:: Doc;			-- ^ A \'{\' character
-rbrace	:: Doc;			-- ^ A \'}\' character
+equals	:: Doc;			-- ^ A '=' character
+lparen	:: Doc;			-- ^ A '(' character
+rparen	:: Doc;			-- ^ A ')' character
+lbrack	:: Doc;			-- ^ A '[' character
+rbrack	:: Doc;			-- ^ A ']' character
+lbrace	:: Doc;			-- ^ A '{' character
+rbrace	:: Doc;			-- ^ A '}' character
 
 text	 :: String   -> Doc
 ptext	 :: String   -> Doc
@@ -251,7 +251,7 @@ rational :: Rational -> Doc
 parens       :: Doc -> Doc; 	-- ^ Wrap document in @(...)@
 brackets     :: Doc -> Doc;  	-- ^ Wrap document in @[...]@
 braces	     :: Doc -> Doc;   	-- ^ Wrap document in @{...}@
-quotes	     :: Doc -> Doc;	-- ^ Wrap document in @\'...\'@
+quotes	     :: Doc -> Doc;	-- ^ Wrap document in @'...'@
 doubleQuotes :: Doc -> Doc;	-- ^ Wrap document in @\"...\"@
 
 -- Combining @Doc@ values