From c7ecb055d42cfc1e56af744b1ab20245552d492b Mon Sep 17 00:00:00 2001
From: Ilya Rezvov <ilya.rezvov@revjet.com>
Date: Sun, 25 Feb 2018 09:19:54 -0800
Subject: [PATCH] fix types indexes in some cases

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

diff --git a/src/Language/Wasm/Parser.y b/src/Language/Wasm/Parser.y
index d3d7b08..d667611 100644
--- a/src/Language/Wasm/Parser.y
+++ b/src/Language/Wasm/Parser.y
@@ -1313,7 +1313,7 @@ desugarize fields =
         extract extractor = reverse . foldl' extractor []
 
         findWithIndex :: (a -> Bool) -> [a] -> Maybe (a, Int)
-        findWithIndex pred l = find (pred . fst) $ zip l [1..]
+        findWithIndex pred l = find (pred . fst) $ zip l [0..]
 
         -- types
         synTypeDefToStruct :: TypeDef -> S.FuncType