simplify validation algorithm

2018-04-14 13:38:09 -07:00
parent 23ed83a42e
commit d0b1092064
4 changed files with 41 additions and 56 deletions
@@ -154,6 +154,7 @@ runScript onAssertFail script = do

        getFailureString :: Validate.ValidationResult -> TL.Text
        getFailureString (Validate.TypeMismatch _ _) = "type mismatch"
+        getFailureString Validate.ResultTypeDoesntMatch = "type mismatch"
        getFailureString Validate.MoreThanOneMemory = "multiple memories"
        getFailureString Validate.MoreThanOneTable = "multiple tables"
        getFailureString Validate.LocalIndexOutOfRange = "unknown local"