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

Add builtins.concatLists

Browse source
This commit is contained in:
Ryan Trinkle 2018-04-01 14:45:54 -04:00
parent 81aec9dfd0
commit 30d0970476
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Nix/Builtins.hs
View file

@ -97,6 +97,7 @@ builtinsList = sequence [
, add Normal "isBool" isBool
, add2 Normal "sort" sort_
, add2 Normal "lessThan" lessThan
, add Normal "concatLists" concatLists
]
where
wrap t n f = Builtin t (n, f)
@ -452,6 +453,13 @@ lessThan ta tb = do
(NVStr a _, NVStr b _) -> pure $ a < b
_ -> badType
concatLists :: MonadBuiltins e m => NThunk m -> m (NValue m)
concatLists = forceThunk >=> \case
NVList l -> fmap (NVList . concat) $ forM l $ forceThunk >=> \case
NVList i -> pure i
v -> throwError $ "builtins.concatLists: expected list, got " ++ show (void v)
v -> throwError $ "builtins.concatLists: expected list, got " ++ show (void v)
newtype Prim m a = Prim { runPrim :: m a }
class ToNix a where