X-Git-Url: https://ruin.nu/git/?p=proglang.git;a=blobdiff_plain;f=Printsyntax.hs;h=e84a1d333e8c46d73773924fa4869e035a7d191e;hp=feb0b2332dce7a464f6db733404e1df969d77f70;hb=9d0e3c89b286456549c68a816d0729f193498f6a;hpb=de34a0eeb75a54ce9ae058797327cd5ddc853ecc

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")])