mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build

Browse source
This commit is contained in:
Joey Hess 2024-07-22 21:19:20 -04:00
parent 758cff0fde
commit 2acde0152a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/P2PHttp.hs
View file

@ -79,7 +79,7 @@ seek o = getAnnexWorkerPool $ \workerpool -> do
mkGetServerMode authenv o mkGetServerMode authenv o
Warp.run (fromIntegral port) (p2pHttpApp st) Warp.run (fromIntegral port) (p2pHttpApp st)
where where
port = fromMaybe defaultHttpProtocolPort (portOption o) port = fromMaybe (fromIntegral defaultHttpProtocolPort) (portOption o)
mkGetServerMode :: M.Map Auth P2P.ServerMode -> Options -> GetServerMode mkGetServerMode :: M.Map Auth P2P.ServerMode -> Options -> GetServerMode
mkGetServerMode _ o _ Nothing mkGetServerMode _ o _ Nothing