From 5760a15c7c78d3cc5fffa369f1f8eb5aa8e057c5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 11 Mar 2025 11:49:47 -0400 Subject: [PATCH] avoid error on missing compute state in checkKey This improves eg `git-annex move --to` a compute remote that does not contain the key. Rather than erroring with "Missing compute state" when it checks if the key is in the remote, it proceeds to trying to store to it, which has a nice error message. --- Remote/Compute.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Remote/Compute.hs b/Remote/Compute.hs index 3adec4bc5b..7ed6040ceb 100644 --- a/Remote/Compute.hs +++ b/Remote/Compute.hs @@ -756,9 +756,7 @@ avoidCycles outputkeys inputkey = filterM go checkKey :: RemoteStateHandle -> Key -> Annex Bool checkKey rs k = do states <- getComputeStatesUnsorted rs k - if null states - then giveup "Missing compute state" - else return True + return (not (null states)) -- Unsetting the compute state will prevent computing the key. dropKey :: RemoteStateHandle -> Maybe SafeDropProof -> Key -> Annex ()