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 {
logLevel = case ml of
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" $