testremote passes on p2phttp remote

This commit is contained in:
Joey Hess 2024-07-24 14:36:37 -04:00
parent f5624a69e3
commit 515c42e1e3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 11 additions and 1 deletions

View file

@ -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