{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
module Logging.Global.TH.Context
( logv
, debug
, info
, warn
, error
, fatal
) where
import Control.Monad.IO.Class (MonadIO)
import Data.Aeson
import Language.Haskell.TH
import Prelude hiding (error, log)
import Logging.Class
import Logging.Global.Internal
import Logging.Level
import Logging.Logger
logv :: ExpQ
logv = do
loc <- location
let filename = loc_filename loc
packagename = loc_package loc
modulename = loc_module loc
lineno = fst $ loc_start loc
location = (filename, packagename, modulename, lineno)
[| \logger level msg ctx -> log logger level msg ctx location |]
debug, info, warn, error, fatal :: ExpQ
debug = [| \logger -> $(logv) logger $ read "DEBUG" |]
info = [| \logger -> $(logv) logger $ read "INFO" |]
warn = [| \logger -> $(logv) logger $ read "WARN" |]
error = [| \logger -> $(logv) logger $ read "ERROR" |]
fatal = [| \logger -> $(logv) logger $ read "FATAL" |]