add some validation checks

src/Language/Wasm/Binary.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE DuplicateRecordFields #-}
 
 module Language.Wasm.Binary (
     dumpModule,
@@ -718,7 +719,7 @@ instance Serialize LocalTypeRange where
     get = LocalTypeRange <$> getULEB128 <*> get
 
 instance Serialize Function where
-    put (Function _ locals body) = do
+    put Function {locals, body} = do
         let bs = runPut $ do
                 putVec $ map (LocalTypeRange 1) locals
                 putExpression body