move the p2phttp server state map into a data type
This commit is contained in:
parent
d7ed99a55f
commit
6bdf4a85fb
3 changed files with 38 additions and 32 deletions
|
@ -110,9 +110,12 @@ seek o = getAnnexWorkerPool $ \workerpool ->
|
|||
where
|
||||
go workerpool servinguuids acquireconn = liftIO $ do
|
||||
authenv <- getAuthEnv
|
||||
st <- mkP2PHttpServerState acquireconn workerpool $
|
||||
st <- mkPerRepoServerState acquireconn workerpool $
|
||||
mkGetServerMode authenv o
|
||||
let mst = M.fromList $ zip servinguuids (repeat st)
|
||||
let mst = P2PHttpServerState
|
||||
{ servedRepos = M.fromList $
|
||||
zip servinguuids (repeat st)
|
||||
}
|
||||
let settings = Warp.setPort port $ Warp.setHost host $
|
||||
Warp.defaultSettings
|
||||
case (certFileOption o, privateKeyFileOption o) of
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue