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

Evaluate if condition

This commit is contained in:
Luca Bruno 2014-07-08 13:38:48 +02:00
parent 2e8e2be67a
commit cf34b6edee
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Nix/Eval.hs
View File

@ -49,7 +49,13 @@ evalExpr = cata phi
go env (x, y) = liftM2 (,) (x env) (y env)
phi (NLet _v _e) = error "let: not implemented"
phi (NIf _i _t _e) = error "if: not implemented"
phi (NIf cond t f) = \env -> do
(Fix cval) <- cond env
case cval of
NVConstant (NBool True) -> t env
NVConstant (NBool False) -> f env
_ -> error "condition must be a boolean"
phi (NWith _c _v) = error "with: not implemented"
phi (NAssert _e _v) = error "assert: not implemented"
phi (NVar _v) = error "var: not implemented"