From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 23 Jul 2024 01:19:20 +0000 (-0400)
Subject: fix build
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~21^2~228^2~83
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=2acde0152ac0c4a3bd25f3263c80ff4a6ee51b08;p=git-annex.git

fix build
---

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