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

Evaluate NArgSet to NVArgSet

This commit is contained in:
Luca Bruno 2014-07-08 11:27:31 +02:00
parent ea6cdf330d
commit 2e8e2be67a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Nix/Eval.hs
View File

@ -4,7 +4,7 @@ import Control.Applicative
import Control.Arrow
import Control.Monad hiding (mapM)
import qualified Data.Map as Map
import Data.Traversable
import Data.Traversable as T
import Nix.Types
import Prelude hiding (mapM)
@ -40,7 +40,7 @@ evalExpr = cata phi
-- Fix . NVConstant . NStr . T.concat
-- <$> mapM (fmap valueText . ($ env)) l
phi (NArgSet _xs) = error "Cannot evaluate an argument set"
phi (NArgSet s) = \env -> Fix . NVArgSet <$> mapM (T.sequence . fmap ($ env)) s
phi (NSet _b xs) = \env ->
Fix . NVSet . Map.fromList