cache: Gracefully handle non-existent cache.
* guix/cache.scm (maybe-remove-expired-cache-entries): Ignore ENOENT when writing EXPIRY-FILE.
This commit is contained in:
parent
3c96158438
commit
2cb0b3709a
@ -101,7 +101,13 @@ CLEANUP-PERIOD denotes the minimum time between two cache cleanups."
|
|||||||
#:now now
|
#:now now
|
||||||
#:entry-expiration entry-expiration
|
#:entry-expiration entry-expiration
|
||||||
#:delete-entry delete-entry)
|
#:delete-entry delete-entry)
|
||||||
(call-with-output-file expiry-file
|
(catch 'system-error
|
||||||
(cute write (time-second now) <>))))
|
(lambda ()
|
||||||
|
(call-with-output-file expiry-file
|
||||||
|
(cute write (time-second now) <>)))
|
||||||
|
(lambda args
|
||||||
|
;; ENOENT means CACHE does not exist.
|
||||||
|
(unless (= ENOENT (system-error-errno args))
|
||||||
|
(apply throw args))))))
|
||||||
|
|
||||||
;;; cache.scm ends here
|
;;; cache.scm ends here
|
||||||
|
Loading…
Reference in New Issue
Block a user