fix mem arg parsing

2018-02-19 18:48:50 -08:00
parent 6a7b82086a
commit 55a6b482ef
2 changed files with 2 additions and 2 deletions
@@ -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