init

[haskell/symantic.git] / Language / LOL / Symantic / AST.hs

diff --git a/Language/LOL/Symantic/AST.hs b/Language/LOL/Symantic/AST.hs
index 0d5305b1cb0014581e3d2b50bcf30161b07545a4..7a952cb5e5ed63cc8b67b30bb40f14c588119125 100644 (file)
--- a/Language/LOL/Symantic/AST.hs
+++ b/Language/LOL/Symantic/AST.hs
@@ -20,12 +20,12 @@ instance Show AST where
                 AST "->" [a] ->
                                showParen (p >= 1) $
                                showString ("("++n++") ") .
-                               showsPrec 1 a
+                               showsPrec 2 a
                 AST "->" [a, b] ->
                                showParen (p >= 1) $
-                               showsPrec 1 a .
+                               showsPrec 2 a .
                                showString (" "++n++" ") .
-                               showsPrec 1 b
+                               showsPrec 2 b
                 _ ->
                        showString n .
                        showString "(" .