X-Git-Url: https://ruin.nu/git/?p=proglang.git;a=blobdiff_plain;f=Skelsyntax.hs;h=8a3605383704b6bf4c3a36e6e4936be53876cfec;hp=c1af30729a27da27cf5d3a1f820bc0ffaf8ebbf1;hb=93b042040034d199c925248a2dd1c321773ab6d0;hpb=9597d94cbb1b328c27883c8421b1fef3211fb698

diff --git a/Skelsyntax.hs b/Skelsyntax.hs
index c1af307..8a36053 100644
--- a/Skelsyntax.hs
+++ b/Skelsyntax.hs
@@ -33,9 +33,9 @@ transStm x = case x of
 
 transExp :: Exp -> Result
 transExp x = case x of
+  EAss id exp  -> failure x
   BExp exp0 bop exp  -> failure x
   EVar id  -> failure x
-  EAss id exp  -> failure x
   EInt n  -> failure x
   ENeg exp  -> failure x
   EBool bool  -> failure x