From e9c5ad8dac42fa4d8266d376d2a9c61bf5ed29e3 Mon Sep 17 00:00:00 2001
From: Ilya Rezvov <ilya.rezvov@revjet.com>
Date: Tue, 20 Mar 2018 21:11:59 -0700
Subject: [PATCH] fix function parsing

---
 src/Language/Wasm/Parser.y | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Language/Wasm/Parser.y b/src/Language/Wasm/Parser.y
index fa9a58c..85267b9 100644
--- a/src/Language/Wasm/Parser.y
+++ b/src/Language/Wasm/Parser.y
@@ -829,6 +829,7 @@ signature_locals_body1 :: { Function }
 result_locals_body :: { Function }
     : ')' { emptyFunction }
     | '(' result_locals_body1 { $2 }
+    | raw_instr list(instruction) ')' { emptyFunction { body = $1 ++ concat $2 } }
 
 result_locals_body1 :: { Function }
     : 'result' list(valtype) ')' result_locals_body {