fix mem arg parsing

src/Language/Wasm/Binary.hs

@@ -267,7 +267,7 @@ instance Serialize Index where
     get = Index <$> getULEB128
 
 instance Serialize MemArg where
-    put (MemArg offset align) = putULEB128 align >> putULEB128 offset
+    put (MemArg align offset) = putULEB128 align >> putULEB128 offset
     get = MemArg <$> getULEB128 <*> getULEB128
 
 instance Serialize Instruction where

tests/Test.hs

@@ -41,7 +41,7 @@ main = do
     let Right mod = Parser.parseModule <$> Lexer.scanner content
     let Right mod' = Binary.decodeModuleLazy $ Binary.dumpModuleLazy mod
     return $ testCase ("Dump module to binary and parse back: " ++ file) $
-      assertBool "Module matched" $ mod == mod'
+      assertEqual "Module matched" mod mod'
   defaultMain $ testGroup "tests" [
       testGroup "Syntax parsing" syntaxTestCases,
       testGroup "Binary format" binaryTestCases