testremote passes on p2phttp remote

diff --git a/P2P/Http/Url.hs b/P2P/Http/Url.hs
index 92439623fbda4b9404956009e3063063cbef303d..6d308741c928c8d2862cd76276dfd2cd720c563b 100644 (file)
--- a/P2P/Http/Url.hs
+++ b/P2P/Http/Url.hs
@@ -91,3 +91,9 @@ parseP2PHttpUrl us
 
 p2pHttpUrlWithoutUUID :: String -> String
 p2pHttpUrlWithoutUUID = reverse . dropWhile (/= '/') . reverse
+
+unavailableP2PHttpUrl :: P2PHttpUrl -> P2PHttpUrl
+unavailableP2PHttpUrl p = p
+#ifdef WITH_SERVANT
+       { p2pHttpBaseUrl = (p2pHttpBaseUrl p) { baseUrlHost = "!dne!" } }
+#endif

diff --git a/Remote/Git.hs b/Remote/Git.hs
index ceccacc66e438b9a81db27e6d16bcfb76913c1bd..93a0c89c7aaeae9d6b0cbb6587203305de3b45e3 100644 (file)
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -264,7 +264,7 @@ defaultRepoCost r
        | otherwise = expensiveRemoteCost
 
 unavailable :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> RemoteStateHandle -> Annex (Maybe Remote)
-unavailable r = gen r'
+unavailable r u c gc = gen r' u c gc'
   where
        r' = case Git.location r of
                Git.Local { Git.gitdir = d } ->
@@ -275,6 +275,10 @@ unavailable r = gen r'
                                in r { Git.location = Git.Url (url { uriAuthority = Just auth' })}
                        Nothing -> r { Git.location = Git.Unknown }
                _ -> r -- already unavailable
+       gc' = gc
+               { remoteAnnexP2PHttpUrl =
+                       unavailableP2PHttpUrl <$> remoteAnnexP2PHttpUrl gc
+               }
 
 {- Tries to read the config for a specified remote, updates state, and
  - returns the updated repo. -}