picnoir
/
hnix
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Evaluate with expression

This commit is contained in:
Luca Bruno 2014-07-08 13:47:31 +02:00
parent cf34b6edee
commit b254b0347c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Nix/Eval.hs
View File

@ -56,7 +56,14 @@ evalExpr = cata phi
NVConstant (NBool False) -> f env
_ -> error "condition must be a boolean"
phi (NWith _c _v) = error "with: not implemented"
phi (NWith scope e) = \env -> case env of
(Fix (NVSet env')) -> do
s <- scope env
case s of
(Fix (NVSet scope')) -> e . Fix . NVSet $ Map.union scope' env'
_ -> error "scope must be a set in with statement"
_ -> error "invalid evaluation environment"
phi (NAssert _e _v) = error "assert: not implemented"
phi (NVar _v) = error "var: not implemented"