Restore missing fixity
authorDavid Terei <davidterei@gmail.com>
Sun, 6 Nov 2011 22:57:28 +0000 (14:57 -0800)
committerDavid Terei <davidterei@gmail.com>
Sun, 6 Nov 2011 22:57:28 +0000 (14:57 -0800)
Text/PrettyPrint/HughesPJ.hs

index 69c474a..974eee7 100644 (file)
@@ -153,6 +153,12 @@ But it doesn't work, for if x=empty, we would have
                     = text s <> nest (-length s) y
 -}
 
+-- ---------------------------------------------------------------------------
+-- Operator fixity
+
+infixl 6 <>
+infixl 6 <+>
+infixl 5 $$, $+$
 
 -- ---------------------------------------------------------------------------
 -- The Doc data type