git.iko.soy/obelisk
on master help sign in
command: Make ob shell work with '--'
2849110Elliot Cameron
lib/command/src/Obelisk/Command.hs+1−1
compare with master
unifiedsplit
@@ -285,7 +285,7 @@ shellOpts :: Parser ShellOpts
285shellOpts = ShellOpts
285shellOpts = ShellOpts
286 <$> shellFlags
286 <$> shellFlags
287 <*> interpretOpts
287 <*> interpretOpts
288− <*> optional (strArgument (metavar "COMMAND"))
288+ <*> ((\xs -> if null xs then Nothing else Just $ unwords xs) <$> many (strArgument (metavar "COMMAND")))
289
289
290portOpt :: Int -> Parser Int
290portOpt :: Int -> Parser Int
291portOpt dfault = option auto (long "port" <> short 'p' <> help "Port number for server" <> showDefault <> value dfault <> metavar "INT")
291portOpt dfault = option auto (long "port" <> short 'p' <> help "Port number for server" <> showDefault <> value dfault <> metavar "INT")