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

Fix pointer equality case in thunkEq

Browse source
This commit is contained in:
Ken Micklas 2019-03-09 21:57:38 -05:00
parent 5129beaef8
commit ec62bce3a0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Nix/Value.hs
View file

@ -227,7 +227,7 @@ thunkEq :: MonadThunk (NValue m) (NThunk m) m
=> NThunk m -> NThunk m -> m Bool
thunkEq lt rt = force lt $ \lv -> force rt $ \rv ->
let unsafePtrEq = case (lt, rt) of
(NThunk _ (Thunk lid _ _), NThunk _ (Thunk rid _ _)) -> return $ lid == rid
(NThunk _ (Thunk lid _ _), NThunk _ (Thunk rid _ _)) | lid == rid -> return True
_ -> valueEq lv rv
in case (lv, rv) of
(NVClosure _ _, NVClosure _ _) -> unsafePtrEq