Commit a7351e18 authored by Toralf Wittner's avatar Toralf Wittner
Browse files

Add =: as alias for 'field'. 

Also revive 'MonadCatch' instance of 'LoggerT'.
parent b56dedf7

src/System/Logger/Message.hs

+4 −1
Original line number Diff line number Diff line
@@ -9,6 +9,7 @@ module System.Logger.Message 
    , Msg

    , msg

    , field

    , (=:)

    , render

    ) where
@@ -26,10 +27,12 @@ newtype Msg = Msg { builders :: [B.Builder] } 
msg :: ByteString -> Builder

msg p (Msg m) = Msg (B.byteString p : m)



field :: ByteString -> ByteString -> Builder

field, (=:) :: ByteString -> ByteString -> Builder

field k v (Msg m) = Msg $

    B.byteString k <> B.byteString "=" <> B.byteString v : m



(=:) = field



render :: ByteString -> Builder -> L.ByteString

render s f = finish

           . mconcat

src/System/LoggerT.hs

+2 −0
Original line number Diff line number Diff line
@@ -27,6 +27,7 @@ where 


import Prelude hiding (log)

import Control.Applicative

import Control.Monad.Catch

import Control.Monad.Reader

import System.Logger (Logger, Level (..))

import System.Logger.Message as M
@@ -39,6 +40,7 @@ newtype LoggerT m a = LoggerT 
               , Applicative

               , Monad

               , MonadIO

               , MonadCatch

               , MonadReader Logger

               , MonadTrans

               )

tinylog.cabal

+2 −1
Original line number Diff line number Diff line 
name:                 tinylog

version:              0.4.2

version:              0.5

synopsis:             Simplistic logging using fast-logger.

author:               Toralf Wittner

maintainer:           Toralf Wittner <tw@dtex.org>
@@ -32,6 +32,7 @@ library 
          base         == 4.*

        , bytestring   >= 0.10

        , date-cache   >= 0.3

        , exceptions   >= 0.3

        , fast-logger  >= 2.1.4 && < 2.2

        , mtl          >= 2.1

        , transformers >= 0.3