diff options
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 14 |
1 files changed, 13 insertions, 1 deletions
@@ -12,6 +12,7 @@ data Mode = UserMode UserOpts | DeveloperMode DeveloperOpts | DownloadMode DownloadOpts + | WatchMode WatchOpts | GraphvizMode GraphvizOpts | ReplayMode ReplayOpts | ServerMode ServerOpts @@ -28,6 +29,10 @@ data DownloadOpts = DownloadOpts { downloadUrl :: String } +data WatchOpts = WatchOpts + { watchUrl :: String + } + data GraphvizOpts = GraphvizOpts { graphvizLogFile :: FilePath , graphvizShowHashes :: Bool @@ -50,6 +55,7 @@ parseMode = (UserMode <$> parseuser) <|> (DeveloperMode <$> parsedeveloper) <|> (ReplayMode <$> parsereplay) <|> (DownloadMode <$> parsedownload) + <|> (WatchMode <$> parsewatch) <|> (GraphvizMode <$> parsegraphviz) <|> (ServerMode <$> parseserver) where @@ -76,9 +82,15 @@ parseMode = (UserMode <$> parseuser) parsedownload = DownloadOpts <$> option str ( long "download" - <> metavar "logfile" + <> metavar "url" <> help "download log file from server" ) + parsewatch = WatchOpts + <$> option str + ( long "watch" + <> metavar "url" + <> help "display a debug-me session non-interactively" + ) parseserver = ServerOpts <$> option str ( long "server" |