diff options
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -6,6 +6,7 @@ module CmdLine where import Types +import ServerList import Data.Monoid import Options.Applicative @@ -29,6 +30,7 @@ data Mode data UserOpts = UserOpts { cmdToRun :: Maybe String + , useServer :: URI } data DeveloperOpts = DeveloperOpts @@ -82,6 +84,13 @@ parseMode = (UserMode <$> parseuser) <> metavar "command" <> help "program to run (default: login shell)" )) + <*> option readurl + ( long "use-server" + <> metavar "url" + <> value defaultServerUrl + <> showDefault + <> help "url of debug-me server to use" + ) parsedeveloper = DeveloperOpts <$> argument readurl ( metavar "url" |