From 2acde0152ac0c4a3bd25f3263c80ff4a6ee51b08 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 22 Jul 2024 21:19:20 -0400 Subject: [PATCH] fix build --- Command/P2PHttp.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Command/P2PHttp.hs b/Command/P2PHttp.hs index ce2470baa7..1753df37e8 100644 --- a/Command/P2PHttp.hs +++ b/Command/P2PHttp.hs @@ -79,7 +79,7 @@ seek o = getAnnexWorkerPool $ \workerpool -> do mkGetServerMode authenv o Warp.run (fromIntegral port) (p2pHttpApp st) where - port = fromMaybe defaultHttpProtocolPort (portOption o) + port = fromMaybe (fromIntegral defaultHttpProtocolPort) (portOption o) mkGetServerMode :: M.Map Auth P2P.ServerMode -> Options -> GetServerMode mkGetServerMode _ o _ Nothing -- 2.30.2