fixed one bug

2023-03-27 14:44:21 +02:00 · 2023-03-27 14:44:21 +02:00 · aa4a615c28
commit aa4a615c28
parent bd3cf3c3f1
1 changed files with 1 additions and 1 deletions
--- a/src/TypeChecker/TypeChecker.hs
+++ b/src/TypeChecker/TypeChecker.hs
@ -633,7 +633,7 @@ inferPattern = \case
                    ++ " arguments but has been given "
                    ++ show (length patterns)
            )
-        sub <- composeAll <$> zipWithM unify (map snd patterns) vs
+        sub <- composeAll <$> zipWithM unify vs (map snd patterns)
        return (T.PInj (coerce constr) (apply sub (map fst patterns)), apply sub ret)
    PCatch -> (T.PCatch,) <$> fresh
    PEnum p -> do