Merge pull request #4 from Lemmih/master

Fix build error.
timjb · Feb 3, 2015 · ac134c0 · ac134c0
2 parents dccf24b + 013ec39
commit ac134c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Aeson/Schema/CodeGen.hs b/src/Data/Aeson/Schema/CodeGen.hs
@@ -418,7 +418,7 @@ generateArray name schema = case schemaItems schema of
                -> CodeGenM SchemaTypes (TypeQ, ExpQ, ExpQ)
     tupleArray items additionalItems = return (tupleType, code $ additionalCheckers ++ [noBindS tupleParser], tupleTo)
       where
-        items' = flip map (zip [0..] items) $ \(i, (itemType, itemParser, itemTo)) ->
+        items' = flip map (zip [0::Int ..] items) $ \(i, (itemType, itemParser, itemTo)) ->
           let simpleParser = [| $(itemParser) (V.unsafeIndex $(varE arr) i) |]
           in if i < schemaMinItems schema
              then (itemType, simpleParser, [| return . $itemTo |])