fix build

diff --git a/Command/P2PHttp.hs b/Command/P2PHttp.hs
index ce2470baa732034d0e40b964dcd4a4d9d8363a8a..1753df37e88222e4cc5555140ca2562852b0c181 100644 (file)
--- 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