Added instance IsString Doc where fromString = text
authorBas van Dijk <v.dijk.bas@gmail.com>
Fri, 8 Oct 2010 07:20:41 +0000 (07:20 +0000)
committerBas van Dijk <v.dijk.bas@gmail.com>
Fri, 8 Oct 2010 07:20:41 +0000 (07:20 +0000)
Text/PrettyPrint/HughesPJ.hs

index 4aff3c2..908c63f 100644 (file)
@@ -214,6 +214,7 @@ module Text.PrettyPrint.HughesPJ (
 
 
 import Prelude
+import Data.String ( IsString(fromString) )
 
 infixl 6 <> 
 infixl 6 <+>
@@ -257,6 +258,9 @@ char         :: Char     -> Doc
 -- has height 1, while 'empty' has no height.
 text    :: String   -> Doc
 
+instance IsString Doc where
+    fromString = text
+
 -- | An obsolete function, now identical to 'text'.
 ptext   :: String   -> Doc