Operator section pretty printing
commit99cd098d8696eba2eb37dbf331aa4ec4e19d2685
authorGary Burgess <gary.burgess@gmail.com>
dateSat 7 Feb 2015, 23:19 (12 years ago)
parent9a5f2bf
src/Language/PureScript/Pretty/Values.hs+2
@@ -73,6 +73,8 @@ literals = mkPattern' match
7373 , withIndent $ prettyPrintMany prettyPrintDoNotationElement els
7474 , currentIndent
7575 ]
76+ match (OperatorSection op (Right val)) = return $ "(" ++ show op ++ " " ++ prettyPrintValue val ++ ")"
77+ match (OperatorSection op (Left val)) = return $ "(" ++ prettyPrintValue val ++ " " ++ show op ++ ")"
7678 match (TypeClassDictionary name _ _) = return $ "<<dict " ++ show name ++ ">>"
7779 match (SuperClassDictionary name _) = return $ "<<superclass dict " ++ show name ++ ">>"
7880 match (TypedValue _ val _) = prettyPrintValue' val