yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make error message in solver slightly more specific

Browse source
This commit is contained in:
Evan Czaplicki 2013-07-19 12:41:37 +02:00
parent b540fb43b0
commit 26738907c6
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
compiler/Type/Solve.hs
View file

@ -116,7 +116,8 @@ solve constraint =
CInstance name term -> do
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
unify freshCopy t
TS.getEnv