mirror of https://github.com/voidlizard/hbs2
21 lines
457 B
Haskell
21 lines
457 B
Haskell
module Log (module Log, module PeerLogger) where
|
|
|
|
import PeerLogger
|
|
|
|
-- import HBS2.System.Logger.Simple (SetLoggerEntry)
|
|
|
|
tracePrefix :: SetLoggerEntry
|
|
tracePrefix = logPrefix "[trace] "
|
|
|
|
debugPrefix :: SetLoggerEntry
|
|
debugPrefix = logPrefix "[debug] "
|
|
|
|
errorPrefix :: SetLoggerEntry
|
|
errorPrefix = logPrefix "[error] "
|
|
|
|
warnPrefix :: SetLoggerEntry
|
|
warnPrefix = logPrefix "[warn] "
|
|
|
|
noticePrefix :: SetLoggerEntry
|
|
noticePrefix = logPrefix "[notice] "
|