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

Add builtins.seq and builtins.deepSeq

Browse source
This commit is contained in:
Ryan Trinkle 2018-03-31 16:56:30 -04:00
parent d32b962bb9
commit 5ded9334e7
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Nix/Builtins.hs
View file

@ -71,6 +71,8 @@ builtinsList = sequence [
, add2 Normal "catAttrs" catAttrs
, add' Normal "concatStringsSep" (arity2 Text.intercalate)
, add Normal "unsafeDiscardStringContext" unsafeDiscardStringContext
, add2 Normal "seq" seq_
, add2 Normal "deepSeq" deepSeq
]
where
wrap t n f = Builtin t (n, f)
@ -297,6 +299,16 @@ unsafeDiscardStringContext = forceThunk >=> \case
NVStr s _ -> pure $ NVStr s mempty
v -> throwError $ "builtins.unsafeDiscardStringContext: Expected a string, got " ++ show (void v)
seq_ :: MonadNix m => NThunk m -> NThunk m -> m (NValue m)
seq_ a b = do
_ <- forceThunk a
forceThunk b
deepSeq :: MonadNix m => NThunk m -> NThunk m -> m (NValue m)
deepSeq a b = do
_ <- normalForm =<< forceThunk a
forceThunk b
newtype Prim m a = Prim { runPrim :: m a }
class ToNix a where