added not

[proglang.git] / Printsyntax.hs

diff --git a/Printsyntax.hs b/Printsyntax.hs
index feb0b2332dce7a464f6db733404e1df969d77f70..e84a1d333e8c46d73773924fa4869e035a7d191e 100644 (file)
--- a/Printsyntax.hs
+++ b/Printsyntax.hs
@@ -107,6 +107,7 @@ instance Print Exp where
    EVar id -> prPrec i 3 (concatD [prt 0 id])
    EInt n -> prPrec i 3 (concatD [prt 0 n])
    ENeg exp -> prPrec i 3 (concatD [doc (showString "-") , prt 3 exp])
+   ENot exp -> prPrec i 3 (concatD [doc (showString "!") , prt 3 exp])
    EBool bool -> prPrec i 3 (concatD [prt 0 bool])
    EReadI  -> prPrec i 3 (concatD [doc (showString "readInt")])
    EReadB  -> prPrec i 3 (concatD [doc (showString "readBool")])