lager-0.1.0.0: test/Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import Lager

main :: IO ()
main = withLager "APP" [Console Debug defLevelRGB, File Info "log.txt"] $ \l -> do
  logNotice l "Hello World!"
  logDebug l "Invisible"
  logErr l "NOO"
  logInfo l "YES"
  logWarning  l "HI"
  let l' = logSub "SUB" l
  logInfo l' "SUB!"