on aa7a67f help sign in
elk/compiler/Types/Unify.hs
14 lines 289 B history raw
2module Types.Unify (unify) where
4import Control.Monad (liftM)
5import qualified Data.Map as Map
7import Guid
8import Types.Constrain
9import Types.Solver
11unify hints modul = run $ do
12 constraints <- constrain hints modul
13 either (return . Left) (\cs -> solver cs Map.empty) constraints