X-Git-Url: https://ruin.nu/git/index.pl?a=blobdiff_plain;f=Skelsyntax.hs;h=9f3feab046e4624d3c594fad502219d14a04f1a6;hb=99548e772decde168669179c0da03109a9df5356;hp=bc9bc0cd636ac74859db584ea12a06693837fbec;hpb=fe6d5e0ac088e6b648a5029b101402c017fd04de;p=proglang.git

diff --git a/Skelsyntax.hs b/Skelsyntax.hs
index bc9bc0c..9f3feab 100644
--- a/Skelsyntax.hs
+++ b/Skelsyntax.hs
@@ -35,11 +35,12 @@ transStm :: Stm -> Result
 transStm x = case x of
   SExp exp  -> failure x
   SBlock stms  -> failure x
+  SDecl type' id exp  -> failure x
+  SDeclD type' id  -> failure x
   SWhile exp stm  -> failure x
   SIf exp stm0 stm  -> failure x
   SPrint exp  -> failure x
   SNoop  -> failure x
-  SDecl type' id exp  -> failure x
 
 
 transExp :: Exp -> Result