From 254bfca5f839e116b0a7d58a779535c2174dd9ee Mon Sep 17 00:00:00 2001
From: Ilya Rezvov <ilya.rezvov@revjet.com>
Date: Sat, 24 Feb 2018 20:36:11 -0800
Subject: [PATCH] fix function parsing

---
 src/Language/Wasm/Parser.y | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Language/Wasm/Parser.y b/src/Language/Wasm/Parser.y
index 84eddf5..396b7a4 100644
--- a/src/Language/Wasm/Parser.y
+++ b/src/Language/Wasm/Parser.y
@@ -790,8 +790,8 @@ signature_locals_body1 :: { Function }
     | 'param' ident valtype ')' signature_locals_body {
         prependFuncParams [ParamType (Just $2) $3] $5
     }
-    | 'result' list(valtype) ')' signature_locals_body {
-        prependFuncResults $2 $4
+    | 'result' list(valtype) ')' locals_body {
+        prependFuncResults $2 $ emptyFunction { locals = fst $4, body = snd $4 }
     }
     | locals_body1 {
         emptyFunction { locals = fst $1, body = snd $1 }