Deprecated

logging-effect-extra-file

TH splices to augment log messages with file info

https://github.com/jship/logging-effect-extra#readme

Version on this page:1.1.1
LTS Haskell 11.22:1.1.2
Stackage Nightly 2018-09-28:2.0.1
Latest on Hackage:2.0.1

See all snapshots logging-effect-extra-file appears in

MIT licensed and maintained by Jason Shipman
This version can be pinned in stack with:logging-effect-extra-file-1.1.1@sha256:cfbbd6edf0a3f1e1c4e6d04bd89468fb059f353f209183df42b90d303560eca4,1735

Module documentation for 1.1.1

logging-effect-extra-file

Synopsis

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

module Main (main) where

import Control.Monad.Log (MonadLog, WithSeverity)
import qualified Control.Monad.Log as Log
import Control.Monad.Log.Extra.File (WithFile)
import qualified Control.Monad.Log.Extra.File as Log
import qualified System.IO as IO
import Text.PrettyPrint.Leijen.Text (Doc)

app :: MonadLog (WithSeverity (WithFile Doc)) m => m ()
app = do
  $(Log.logEmergencyTH) "GAH! All systems are down!!!"
  $(Log.logAlertTH) "Red alert!"
  $(Log.logCriticalTH) "Critical hit!"
  $(Log.logErrorTH) "Errors abound!"
  $(Log.logWarningTH) "Cargo number 2331 has commandeered the vessel"
  $(Log.logNoticeTH) "Heads up, but it's no biggie."
  $(Log.logInfoTH) "Does anyone read these?"
  $(Log.logDebugTH) "Sleuthing with log messages..."

main :: IO ()
main = Log.withFDHandler Log.defaultBatchingOptions IO.stdout 0.4 80 $ \stdoutHandler ->
  Log.runLoggingT app (stdoutHandler . Log.renderWithSeverity (Log.renderWithFile id))

Usage via stack

# Build the project.
stack build

# Run the `log-file-and-severity` example
stack exec log-file-and-severity

# Run the `log-file` example
stack exec log-file

Changes

Change log

1.1.1

  • Update README to use logInfoTH instead of deprecated logInformationalTH splice

1.1.0

  • Deprecate logInformationalTH splice
  • Add logInfoTH splice

1.0.0

  • Initial release