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

Remove 'value' from 'Message'.

parent a016bcc3

src/System/Logger/Message.hs

+0 −9
Original line number Diff line number Diff line
@@ -3,9 +3,7 @@ 
module System.Logger.Message

    ( Builder

    , Msg

    , value

    , msg

    , msg'

    , field

    , render

    ) where
@@ -21,16 +19,9 @@ import qualified Data.ByteString.Lazy.Builder.Extras as B 
type Builder = Msg -> Msg

newtype Msg  = Msg { builders :: [B.Builder] }



value :: ByteString -> Builder

value b = const $ Msg [B.byteString b]



msg :: ByteString -> Builder

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



msg' :: ByteString -> Builder

msg' ""     m  = m

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



field :: ByteString -> ByteString -> Builder

field k v (Msg m) = Msg $

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

tinylog.cabal

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

version:              0.4

version:              0.4.1

synopsis:             Simplistic logging using fast-logger.

author:               Toralf Wittner

maintainer:           Toralf Wittner <tw@dtex.org>