Fix the way that rec { foo.bar = bar; } is desugared

Fixes #338
This commit is contained in:
John Wiegley 2018-08-05 09:53:20 -04:00
parent 7b2f66e59e
commit 6830d88523
No known key found for this signature in database
GPG key ID: C144D8F4F19FE630

View file

@ -127,7 +127,7 @@ eval (NSet binds) =
evalBinds False (desugarBinds (eval . NSet) binds) >>= toValue
eval (NRecSet binds) =
evalBinds True (desugarBinds (eval . NRecSet) binds) >>= toValue
evalBinds True (desugarBinds (eval . NSet) binds) >>= toValue
eval (NLet binds body) = evalBinds True binds >>= (pushScope ?? body) . fst