Fix input validation on log level

This commit is contained in:
Daniel Gröber 2015-08-05 04:06:41 +02:00
parent d270e92951
commit 40f0e21fdf

View File

@ -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" $