Fix missing pattern in type matching function

03e03950 · Finn Teegen · f63812da · 03e03950
Commit 03e03950 authored Nov 27, 2017 by Finn Teegen
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

src/Base/Typing.hs src/Base/Typing.hs +1 -0

No files found.
--- a/src/Base/Typing.hs
+++ b/src/Base/Typing.hs
@@ -139,6 +139,7 @@ matchType' (TypeApply ty11 ty12) (TypeArrow ty21 ty22) =
 matchType' (TypeArrow ty11 ty12) (TypeApply ty21 ty22) =
  fmap (. matchType ty12 ty22)
       (matchType' (TypeApply (TypeConstructor qArrowId) ty11) ty21)
+matchType' (TypeForall _ ty1) (TypeForall _ ty2) = matchType' ty1 ty2
 matchType' _ _ = Nothing

 -- The functions 'bindDecls', 'bindDecl', 'bindPatterns' and 'bindPattern'