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

started on auth

Browse source
This commit is contained in:
Joey Hess 2024-07-09 17:30:55 -04:00
parent b5b3d8cde2
commit 08371c3745
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 76 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Command/P2PHttp.hs
View file

@ -24,7 +24,16 @@ import Control.Concurrent.STM
cmd :: Command
cmd = command "p2phttp" SectionPlumbing
"communicate in P2P protocol over http"
paramNothing (withParams seek)
paramNothing (seek <$$> optParser)
data Options = Options
{ cmdParams :: CmdParams
, authEnvOption :: Bool
, authEnvHttpOption :: Bool
, readOnlyOption :: Bool
, appendOnlyOption :: Bool
, wideOpenOption :: Bool
}
seek :: CmdParams -> CommandSeek
seek ["server"] = startConcurrency commandStages $