command: Make ob shell work with '--'
commit2849110d3f2bb672efc93da3da38bc593a3881db
authorElliot Cameron <eacameron@gmail.com>
dateFri 15 May 2020, 13:27 (6 years ago)
parent01874e2
lib/command/src/Obelisk/Command.hs+1−1
@@ -285,7 +285,7 @@ shellOpts :: Parser ShellOpts
285285shellOpts = ShellOpts
286286 <$> shellFlags
287287 <*> interpretOpts
288− <*> optional (strArgument (metavar "COMMAND"))
288+ <*> ((\xs -> if null xs then Nothing else Just $ unwords xs) <$> many (strArgument (metavar "COMMAND")))
289289
290290portOpt :: Int -> Parser Int
291291portOpt dfault = option auto (long "port" <> short 'p' <> help "Port number for server" <> showDefault <> value dfault <> metavar "INT")