~ruther/guix-local: locate: Request writable db for --clear.

c9ac6c87154558b2f91cfa8ecc2237c4d390786e — Yelninei 1 year, 6 months ago c2af548

locate: Request writable db for --clear.

Fixes <https://issues.guix.gnu.org/76141>.

* guix/scripts/locate.scm (guix-locate): Use writable db when --clear is given.

Change-Id: I2e4e945cef022b08dd6af4c252e67c2a4d5bf38c
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

patch browse .tar.gz .zip

1 files changed, 2 insertions(+), 1 deletions(-)

M guix/scripts/locate.scm

M guix/scripts/locate.scm => guix/scripts/locate.scm +2 -1

@@ 624,7 624,8 @@ Locate FILE and return the list of packages that contain it.\n"))
            (clear?   (assoc-ref opts 'clear?))
            (update?  (assoc-ref opts 'update?))
            (glob?    (assoc-ref opts 'glob?))
-           (database ((assoc-ref opts 'database) update? age-update-threshold))
+           (database ((assoc-ref opts 'database)
+                      (or clear? update?) age-update-threshold))
            (method   (assoc-ref opts 'method))
            (files    (reverse (filter-map (match-lambda
                                             (('argument . arg) arg)