a small sample (the smallest ?) of MonadLogger

MyLog02.hs

{-
a small sample (the smallest ?) of MonadLogger
-}

{-# LANGUAGE TemplateHaskell   #-}
{-# LANGUAGE OverloadedStrings #-}

module MonadLoggerSample where

import Control.Monad.Logger
import Language.Haskell.TH
import Data.Text

main :: IO ()
main = do
  print "abc"
  runStderrLoggingT $ $(logDebug) "This is a debug log message"
  print "xyz"
-- 
-- runStderrLoggingT :: LoggingT IO () -> IO ()
-- $(logDebug)       :: Text -> LoggingT IO ()

{-
*> :l MyLog02.hs
[1 of 1] Compiling MonadLoggerSample ( MyLog02.hs, interpreted )
Ok, modules loaded: MonadLoggerSample.
*> main
"abc"
[Debug] This is a debug log message @(main:MonadLoggerSample MyLog02.hs:17:25)
"xyz"
-}