testremote passes on p2phttp remote
This commit is contained in:
parent
f5624a69e3
commit
515c42e1e3
2 changed files with 11 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue