X-Git-Url: https://ruin.nu/git/?p=proglang.git;a=blobdiff_plain;f=Printsyntax.hs;h=e84a1d333e8c46d73773924fa4869e035a7d191e;hp=feb0b2332dce7a464f6db733404e1df969d77f70;hb=2316d61f350f8b39c9a3f76b91d1d14796d5183b;hpb=6103c0359b95557566aa9154efa5bcd4d9c996f6

diff --git a/Printsyntax.hs b/Printsyntax.hs
index feb0b23..e84a1d3 100644
--- 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")])