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

Succeed on programs that have no expressions

Browse source
This commit is contained in:
Evan Czaplicki 2013-08-13 22:12:45 -07:00
parent a46432f30a
commit 47d68d8bf2
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
compiler/Type/Constrain/Expression.hs
View file

@ -34,7 +34,8 @@ constrain env (L span expr) tipe =
case expr of
Literal lit -> Literal.constrain env span lit tipe
Var name -> return (name <? tipe)
Var name | name == saveEnvName -> return (L span CSaveEnv)
| otherwise -> return (name <? tipe)
Range lo hi ->
exists $ \x -> do
@ -136,9 +137,7 @@ constrain env (L span expr) tipe =
return ("Graphics.Element.markdown" <? tipe)
Let defs body ->
do c <- case body of
L _ (Var name) | name == saveEnvName -> return (L span CSaveEnv)
_ -> constrain env body tipe
do c <- constrain env body tipe
(schemes, rqs, fqs, header, c2, c1) <-
Monad.foldM (constrainDef env)
([], [], [], Map.empty, true, true)