on master help sign in
Fix bug preventing --verbose to work after handoff
commit3bedc98268e230997cb06ac6d011b9af69c3ae3e authorElliot Cameron <eacameron@gmail.com> dateTue 17 Dec 2019, 12:27 (7 years ago) parent6dead61
1 file changed+2−1
lib/command/src/Obelisk/Command.hs+2−1
lib/command/src/Obelisk/Command.hs+2−1
@@ -267,7 +267,8 @@ mkObeliskConfig :: IO Obelisk
267267mkObeliskConfig = do
268268 cliArgs <- getArgs
269269 -- This function should not use argument parser (full argument parsing happens post handoff)
270− let logLevel = toLogLevel $ "-v" `elem` cliArgs
270+ -- TODO: See if we can use the argument parser with a subset of the parsers to get logging level out.
271+ let logLevel = toLogLevel $ any (`elem` ["-v", "--verbose"]) cliArgs
271272 notInteractive <- not <$> isInteractiveTerm
272273 cliConf <- newCliConfig logLevel notInteractive notInteractive $ \case
273274 ObeliskError_ProcessError (ProcessFailure p code) ann ->