elm/compiler/Types/Unify.hs

17 lines
357 B
Haskell
Raw Normal View History

module Types.Unify (unify) where
import Control.Monad (liftM)
import qualified Data.Map as Map
2013-04-05 16:55:30 +00:00
import Ast
import Guid
import Types.Constrain
import Types.Solver
2013-04-05 16:55:30 +00:00
import Types.Alias as Alias
2013-04-05 16:55:30 +00:00
unify hints modul@(Module _ _ _ stmts) = run $ do
constraints <- constrain hints modul
2013-04-05 16:55:30 +00:00
either (return . Left) (solver (Alias.get stmts) Map.empty) constraints