From 76f31d59b034ef647d0c94bc42aa75f411992230 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 30 Jul 2024 12:39:17 -0400
Subject: [PATCH] more fixes to build w/o servant

---
 P2P/Http/Client.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/P2P/Http/Client.hs b/P2P/Http/Client.hs
index ac69df5699..fd693f1afa 100644
--- a/P2P/Http/Client.hs
+++ b/P2P/Http/Client.hs
@@ -24,6 +24,7 @@ import Utility.Metered
 import Utility.FileSize
 import Types.NumCopies
 
+import Annex.Common
 #ifdef WITH_SERVANT
 import qualified Annex
 import Annex.UUID
@@ -31,7 +32,6 @@ import Annex.Url
 import Types.Remote
 import P2P.Http
 import P2P.Http.Url
-import Annex.Common
 import Annex.Concurrent
 import Utility.Url (BasicAuth(..))
 import Utility.HumanTime
@@ -45,12 +45,12 @@ import Network.HTTP.Client
 import qualified Data.ByteString as B
 import qualified Data.ByteString.Lazy.Internal as LI
 import qualified Data.Map as M
-import Data.Time.Clock.POSIX
 import Control.Concurrent.STM
 import Control.Concurrent.Async
 import Control.Concurrent
 import System.IO.Unsafe
 #endif
+import Data.Time.Clock.POSIX
 import qualified Data.ByteString.Lazy as L
 
 type ClientAction a
@@ -156,7 +156,7 @@ p2pHttpClientVersions allowedversion rmt fallback clientaction =
 					M.insert (Git.CredentialBaseURL credentialbaseurl) cred cc
 		Nothing -> noop
 #else
-p2pHttpClientVersions _ _ fallback () = fallback
+p2pHttpClientVersions _ _ fallback () = Just <$> fallback
 	"This remote uses an annex+http url, but this version of git-annex is not built with support for that."
 #endif