Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (19 sloc) 0.695 kb
--Services
module Roguestar.Lib.Logging
(initLogging,
gameplay_log,
module System.Log.Logger)
where
import System.Log.Logger
import System.Log.Handler.Simple
initLogging :: Priority -> IO ()
initLogging prio =
do logger <- fileHandler "log/roguestar.log" prio
updateGlobalLogger rootLoggerName $ setHandlers [logger]
updateGlobalLogger rootLoggerName (setLevel prio)
logM gameplay_log EMERGENCY "Initializing log."
logM gameplay_log WARNING "Logging warnings."
logM gameplay_log INFO "Logging informational messages."
logM gameplay_log DEBUG "Logging debug messages."
gameplay_log :: String
gameplay_log = "roguestar.gameplay"
Jump to Line
Something went wrong with that request. Please try again.