fix build without servant some more

diff --git a/P2P/Http/Client.hs b/P2P/Http/Client.hs
index 026094b8f9f272064fb0edafd68e5062cc4c5c96..2521ff325813200c948476ff87aa5f0b4c976255 100644 (file)
--- a/P2P/Http/Client.hs
+++ b/P2P/Http/Client.hs
@@ -156,7 +156,7 @@ p2pHttpClientVersions allowedversion rmt fallback clientaction =
                                        M.insert (Git.CredentialBaseURL credentialbaseurl) cred cc
                Nothing -> noop
 #else
-p2pHttpClientVersions _rmt fallback () = fallback
+p2pHttpClientVersions _ _ fallback () = fallback
        "This remote uses an annex+http url, but this version of git-annex is not build with support for that."
 #endif