- = do let disableStderrLog = find (== OptDisableStderrLog) opts /= Nothing
- logHandlers = if disableStderrLog then
- []
- else
- [verboseStreamHandler stderr DEBUG]
- logLevel = fromMaybe defaultLogLevel
- $ do OptLogLevel l <- find (\ x -> case x of
- OptLogLevel _ -> True
- _ -> False) opts
- return l
+ = do let verbose = find (== OptVerbose) opts /= Nothing
+ logHandlers = if verbose then
+ [verboseStreamHandler stderr DEBUG]
+ else
+ [] -- FIXME: enable file log
+ logLevel = fromMaybe defaultLogLevel
+ $ do OptLogLevel l <- find (\ x -> case x of
+ OptLogLevel _ -> True
+ _ -> False) opts
+ return l