blob: d09ad7b51147e855b3d8bbb64459fb956aabaa73 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module Coolbal.Log (
logw,
logVerbose,
) where
import System.IO (hPutStrLn, stderr)
import Coolbal.Options
logw :: Flags -> Verbosity -> String -> String -> IO ()
logw Flags{fVerbosity=verb} level key line
| verb >= level = doLog key line
| otherwise = return ()
logVerbose :: Flags -> String -> String -> IO ()
logVerbose flags key line = logw flags Verbose key line
doLog :: String -> String -> IO ()
doLog key line =
hPutStrLn stderr ("[coolbal:" ++ key ++ "] " ++ line)
|