Make error message in solver slightly more specific
This commit is contained in:
parent
b540fb43b0
commit
26738907c6
1 changed files with 2 additions and 1 deletions
|
@ -116,7 +116,8 @@ solve constraint =
|
||||||
|
|
||||||
CInstance name term -> do
|
CInstance name term -> do
|
||||||
env <- TS.getEnv
|
env <- TS.getEnv
|
||||||
freshCopy <- TS.makeInstance (Map.findWithDefault (error $ "Could not find " ++ name ++ " in the environment") name env)
|
let msg = "Could not find '" ++ name ++ "' when solving type constraints."
|
||||||
|
freshCopy <- TS.makeInstance (Map.findWithDefault (error msg) name env)
|
||||||
t <- TS.flatten term
|
t <- TS.flatten term
|
||||||
unify freshCopy t
|
unify freshCopy t
|
||||||
TS.getEnv
|
TS.getEnv
|
||||||
|
|
Loading…
Reference in a new issue