diff --git a/Assistant/WebApp/Configurators/WebDAV.hs b/Assistant/WebApp/Configurators/WebDAV.hs
index d3bd6a6b18..a14359edad 100644
--- a/Assistant/WebApp/Configurators/WebDAV.hs
+++ b/Assistant/WebApp/Configurators/WebDAV.hs
@@ -135,7 +135,6 @@ makeWebDavRemote name creds setup config = do
 	setup r
 	liftAssistant $ syncRemote r
 	redirect $ EditNewCloudRepositoryR $ Remote.uuid r
-#endif
 
 {- Only returns creds previously used for the same hostname. -}
 previouslyUsedWebDAVCreds :: String -> Annex (Maybe CredPair)
@@ -145,6 +144,7 @@ previouslyUsedWebDAVCreds hostname =
 	samehost url = case urlHost =<< WebDAV.configUrl url of
 		Nothing -> False
 		Just h -> h == hostname
+#endif
 
 urlHost :: String -> Maybe String
 urlHost url = uriRegName <$> (uriAuthority =<< parseURI url)