nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

grafts: Actually cache grafts during the derivation DAG traversal. 

This fixes a regression introduced in
d38bc9a9f6 whereby the cache was
effectively disabled.

Reported by Thomas Danckaert <thomas.danckaert@gmail.com>.

* guix/grafts.scm (with-cache): In the cache miss case, wrap body in
'mbegin'.
This commit is contained in:
Ludovic Courtès 2017-01-16 21:59:00 +01:00
parent b09903619f
commit 90ad5c8836
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/grafts.scm
View File

@ -222,8 +222,9 @@ available."
(return result)) (return result))
(#f ;cache miss (#f ;cache miss
(mlet %state-monad ((result (begin exp ...))) (mlet %state-monad ((result (begin exp ...)))
(set-current-state (vhash-consq key result cache)) (mbegin %state-monad
(return result)))))) (set-current-state (vhash-consq key result cache))
(return result)))))))
(define* (cumulative-grafts store drv grafts (define* (cumulative-grafts store drv grafts
references references