cleanup

[clean-tests.git] / datatype / Printer.hs

diff --git a/datatype/Printer.hs b/datatype/Printer.hs
index f200b15..9e25c5b 100644 (file)
--- a/datatype/Printer.hs
+++ b/datatype/Printer.hs
@@ -152,11 +152,11 @@ printBinOp thisctx op l r = paren' thisctx $
 
 printUnOp :: Ctx -> String -> Printer a -> Printer a
 printUnOp thisctx op l = paren' thisctx $
-       printLit (' ':op)
+        printLit (' ':op)
     >-> localctx (setBranch thisctx CtxRight) l
 
 printCons :: String -> Printer a -> Printer a
 printCons cons l = paren' CtxNonfix $ printLit cons >-> l
 
 printRec :: String -> Printer a -> Printer a
-printRec op l = printUnOp CtxNo op (accol l)-- (op++" ") (accol l)
+printRec op l = printUnOp CtxNo op $ accol l