Fix input validation on log level
This commit is contained in:
parent
d270e92951
commit
40f0e21fdf
@ -241,7 +241,7 @@ globalArgSpec =
|
|||||||
optArg "LEVEL" $ \ml o -> o {
|
optArg "LEVEL" $ \ml o -> o {
|
||||||
logLevel = case ml of
|
logLevel = case ml of
|
||||||
Nothing -> increaseLogLevel (logLevel o)
|
Nothing -> increaseLogLevel (logLevel o)
|
||||||
Just l -> toEnum $ min 6 $ read l
|
Just l -> toEnum $ min 7 $ read l
|
||||||
}
|
}
|
||||||
|
|
||||||
, option "s" [] "Be silent, set log level to 0" $
|
, option "s" [] "Be silent, set log level to 0" $
|
||||||
|
Loading…
Reference in New Issue
Block a user