version 0.4.5.10.4.5.1

2 files changed, 4 insertions, 3 deletions

diff --git a/purescript.cabal b/purescript.cabal
index 30dcf3b..e4a7984 100644
--- a/purescript.cabal
+++ b/purescript.cabal
@@ -1,5 +1,5 @@
 name: purescript
-version: 0.4.5
+version: 0.4.5.1
 cabal-version: >=1.8
 build-type: Custom
 license: MIT
diff --git a/src/Language/PureScript/TypeChecker/Types.hs b/src/Language/PureScript/TypeChecker/Types.hs
index 415e2c4..40a7703 100644
--- a/src/Language/PureScript/TypeChecker/Types.hs
+++ b/src/Language/PureScript/TypeChecker/Types.hs
@@ -583,8 +583,9 @@ inferBinder val (ConstructorBinder ctor binders) = do
   env <- getEnv
   case M.lookup ctor (dataConstructors env) of
     Just (_, ty) -> do
-      (_, fn) <- instantiatePolyTypeWithUnknowns (error "Data constructor types cannot contains constraints") ty
-      go binders fn
+      (_, fn) <- instantiatePolyTypeWithUnknowns (error "Data constructor types cannot contain constraints") ty
+      fn' <- replaceAllTypeSynonyms fn
+      go binders fn'
         where
         go [] ty' = do
           _ <- subsumes Nothing val ty'