diff options
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 16 |
1 files changed, 15 insertions, 1 deletions
@@ -1,9 +1,12 @@ module CmdLine where +import Types + import Data.Monoid import Options.Applicative import Network.URI import Network.Wai.Handler.Warp (Port) +import qualified Data.Text as T data CmdLine = CmdLine { mode :: Mode @@ -47,6 +50,8 @@ data ReplayOpts = ReplayOpts data ServerOpts = ServerOpts { serverDirectory :: FilePath , serverPort :: Port + , serverEmail :: Maybe EmailAddress + , serverDeleteOldLogs :: Bool } data ControlOpts = ControlOpts @@ -106,7 +111,7 @@ parseMode = (UserMode <$> parseuser) <> help "display a debug-me session non-interactively" ) parseserver = ServerOpts - <$> option str + <$> strOption ( long "server" <> metavar "logdir" <> help "run server, storing logs in the specified directory" @@ -118,6 +123,15 @@ parseMode = (UserMode <$> parseuser) <> showDefault <> help "port for server to listen on" ) + <*> optional (T.pack <$> strOption + ( long "from-email" + <> metavar "address" + <> help "email session logs using this from address" + )) + <*> switch + ( long "delete-old-logs" + <> help "delete session logs after session is done" + ) parsecontrol = ControlOpts <$> switch ( long "control" |