X-Git-Url: https://ruin.nu/git/?p=proglang.git;a=blobdiff_plain;f=Abssyntax.hs;h=d9fc3445b15970a66b0ac32ce0d1ca796c5648a8;hp=ec85c8d619730b34e85d5e00a39f4a562e995d06;hb=fd3bc0ef4542783846af4e2c4f986e94f96c74ff;hpb=fe6d5e0ac088e6b648a5029b101402c017fd04de

diff --git a/Abssyntax.hs b/Abssyntax.hs
index ec85c8d..d9fc344 100644
--- a/Abssyntax.hs
+++ b/Abssyntax.hs
@@ -16,11 +16,12 @@ data Stms =
 data Stm =
    SExp Exp
  | SBlock [Stm]
+ | SDecl Type Ident Exp
+ | SDeclD Type Ident
  | SWhile Exp Stm
  | SIf Exp Stm Stm
  | SPrint Exp
  | SNoop
- | SDecl Type Ident Exp
   deriving (Eq,Ord,Show)
 
 data Exp =