@@ -73,6 +73,8 @@ literals = mkPattern' match
73 , withIndent $ prettyPrintMany prettyPrintDoNotationElement els
73 , withIndent $ prettyPrintMany prettyPrintDoNotationElement els
74 , currentIndent
74 , currentIndent
76+ match (OperatorSection op (Right val)) = return $ "(" ++ show op ++ " " ++ prettyPrintValue val ++ ")"
77+ match (OperatorSection op (Left val)) = return $ "(" ++ prettyPrintValue val ++ " " ++ show op ++ ")"
76 match (TypeClassDictionary name _ _) = return $ "<<dict " ++ show name ++ ">>"
78 match (TypeClassDictionary name _ _) = return $ "<<dict " ++ show name ++ ">>"
77 match (SuperClassDictionary name _) = return $ "<<superclass dict " ++ show name ++ ">>"
79 match (SuperClassDictionary name _) = return $ "<<superclass dict " ++ show name ++ ">>"
78 match (TypedValue _ val _) = prettyPrintValue' val
80 match (TypedValue _ val _) = prettyPrintValue' val