Revision df726590 src/Ganeti/Logging.hs
b/src/Ganeti/Logging.hs | ||
---|---|---|
55 | 55 |
import System.IO |
56 | 56 |
|
57 | 57 |
import Ganeti.THH |
58 |
import qualified Ganeti.Constants as C
|
|
58 |
import qualified Ganeti.ConstantUtils as ConstantUtils
|
|
59 | 59 |
|
60 | 60 |
-- | Syslog usage type. |
61 |
$(declareSADT "SyslogUsage"
|
|
62 |
[ ("SyslogNo", 'C.syslogNo)
|
|
63 |
, ("SyslogYes", 'C.syslogYes)
|
|
64 |
, ("SyslogOnly", 'C.syslogOnly)
|
|
61 |
$(declareLADT ''String "SyslogUsage"
|
|
62 |
[ ("SyslogNo", "no")
|
|
63 |
, ("SyslogYes", "yes")
|
|
64 |
, ("SyslogOnly", "only")
|
|
65 | 65 |
]) |
66 | 66 |
|
67 | 67 |
-- | Builds the log formatter. |
... | ... | |
98 | 98 |
-> IO () |
99 | 99 |
setupLogging logf program debug stderr_logging console syslog = do |
100 | 100 |
let level = if debug then DEBUG else INFO |
101 |
destf = if console then Just C.devConsole else logf |
|
101 |
destf = if console then Just ConstantUtils.devConsole else logf
|
|
102 | 102 |
fmt = logFormatter program False False |
103 | 103 |
file_logging = syslog /= SyslogOnly |
104 | 104 |
|
Also available in: Unified diff