From 0744a9f0029b2f78cc86b193214004b4501fa847 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 2 Jul 2018 23:50:38 +0200
Subject: store: Add 'query-path-info*'.

* guix/scripts/size.scm (query-path-info*): Move to...
* guix/store.scm (query-path-info*): ... here.
---
 guix/scripts/size.scm | 11 +----------
 guix/store.scm        | 10 ++++++++++
 2 files changed, 11 insertions(+), 10 deletions(-)

(limited to 'guix')

diff --git a/guix/scripts/size.scm b/guix/scripts/size.scm
index b7b53e43fb..344be40883 100644
--- a/guix/scripts/size.scm
+++ b/guix/scripts/size.scm
@@ -1,5 +1,5 @@
 ;;; 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.
 ;;;
@@ -53,15 +53,6 @@ (define-record-type <profile>
 (define 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)
   "Return the size in bytes of ITEM, resorting to information from substitutes
 if ITEM is not in the store."
diff --git a/guix/store.scm b/guix/store.scm
index 3bf56573bf..bac42f2738 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -107,6 +107,7 @@ (define-module (guix store)
             references
             references/substitutes
             references*
+            query-path-info*
             requisites
             referrers
             optimize-store
@@ -1398,6 +1399,15 @@ (define set-build-options*
 (define 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)
   ;; Consult the %CURRENT-SYSTEM fluid at bind time.  This is equivalent to
   ;; (lift0 %current-system %store-monad), but inlinable, thus avoiding
-- 
cgit v1.2.3