type signature parsing for loop and if blocks

2021-04-04 13:56:40 -07:00
parent 2d58addefa
commit b816e04b6d
7 changed files with 141 additions and 164 deletions
@@ -126,8 +126,8 @@ data Instruction index =
    Unreachable
    | Nop
    | Block { blockType :: BlockType, body :: Expression }
-    | Loop { resultType :: ResultType, body :: Expression }
-    | If { resultType :: ResultType, true :: Expression, false :: Expression }
+    | Loop { blockType :: BlockType, body :: Expression }
+    | If { blockType :: BlockType, true :: Expression, false :: Expression }
    | Br index
    | BrIf index
    | BrTable [index] index