ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-28 14:01:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

store: Add 'query-path-info*'.

Browse source 
* guix/scripts/size.scm (query-path-info*): Move to...
* guix/store.scm (query-path-info*): ... here.
This commit is contained in:
Ludovic Courtès 2018-07-02 23:50:38 +02:00
parent 24420f5ffa
commit 0744a9f002
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
guix/scripts/size.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -53,15 +53,6 @@ (define-record-type <profile>
(define substitutable-path-info* (define substitutable-path-info*
(store-lift substitutable-path-info)) (store-lift substitutable-path-info))
(define (query-path-info* item)
"Monadic version of 'query-path-info' that returns #f when ITEM is not in
the store."
(lambda (store)
(guard (c ((nix-protocol-error? c)
;; ITEM is not in the store; return #f.
(values #f store)))
(values (query-path-info store item) store))))
(define (file-size item) (define (file-size item)
"Return the size in bytes of ITEM, resorting to information from substitutes "Return the size in bytes of ITEM, resorting to information from substitutes
if ITEM is not in the store." if ITEM is not in the store."

10
guix/store.scm
View file

@ -107,6 +107,7 @@ (define-module (guix store)
references references
references/substitutes references/substitutes
references* references*
query-path-info*
requisites requisites
referrers referrers
optimize-store optimize-store
@ -1398,6 +1399,15 @@ (define set-build-options*
(define references* (define references*
(store-lift references)) (store-lift references))
(define (query-path-info* item)
"Monadic version of 'query-path-info' that returns #f when ITEM is not in
the store."
(lambda (store)
(guard (c ((nix-protocol-error? c)
;; ITEM is not in the store; return #f.
(values #f store)))
(values (query-path-info store item) store))))
(define-inlinable (current-system) (define-inlinable (current-system)
;; Consult the %CURRENT-SYSTEM fluid at bind time. This is equivalent to ;; Consult the %CURRENT-SYSTEM fluid at bind time. This is equivalent to
;; (lift0 %current-system %store-monad), but inlinable, thus avoiding ;; (lift0 %current-system %store-monad), but inlinable, thus avoiding