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

Add new helper function isClosureNF

Browse source
This commit is contained in:
John Wiegley 2018-04-11 20:22:06 -07:00
parent 036031ca3e
commit 38b24f5fc1
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Nix/Value.hs
View file

@ -129,6 +129,10 @@ mkIntV = return . NVConstant . NInt
mkFloatV :: Monad m => Float -> m (NValue m)
mkFloatV = return . NVConstant . NFloat
isClosureNF :: Monad m => NValueNF m -> Bool
isClosureNF (Fix NVClosure {}) = True
isClosureNF _ = False
thunkEq :: MonadThunk (NValue m) (NThunk m) m
=> NThunk m -> NThunk m -> m Bool
thunkEq lt rt = force lt $ \lv -> force rt $ \rv -> valueEq lv rv