From 9762ac8da9b938a40423b79966b35be080686620 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 22 Aug 2016 12:24:06 -0400 Subject: --server needs a port --- CmdLine.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'CmdLine.hs') diff --git a/CmdLine.hs b/CmdLine.hs index 283e768..c15ca83 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -11,6 +11,7 @@ import qualified Gpg import Options.Applicative import qualified Data.ByteString.UTF8 as BU8 import System.Directory +import Network.Wai.Handler.Warp (Port) data CmdLine = CmdLine { mode :: Maybe Mode @@ -21,7 +22,7 @@ data CmdLine = CmdLine , customShareParams :: Maybe ShareParams } -data Mode = Backup | Restore | UploadQueued | Server | Benchmark +data Mode = Backup | Restore | UploadQueued | Server Port | Benchmark deriving (Show) parse :: Parser CmdLine @@ -45,8 +46,9 @@ parse = CmdLine ( long "uploadqueued" <> help "Upload any data to servers that was queued by a previous --backup run." ) - server = flag' Server + server = Server <$> option auto ( long "server" + <> metavar "PORT" <> help "Run as a keysafe server, accepting objects and storing them to ~/.keysafe/objects/local/" ) benchmark = flag' Benchmark -- cgit v1.2.3