diff --git a/src/System/Logger/Message.hs b/src/System/Logger/Message.hs index fb2820685d49f8f242c8a01b05100cd4ed5b892f..d6fd588f51dc7249ba4b3c6dd7edbd8c4de4c10e 100644 --- a/src/System/Logger/Message.hs +++ b/src/System/Logger/Message.hs @@ -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 diff --git a/tinylog.cabal b/tinylog.cabal index 41e9fc5415813a2485726563a4c1b350937c12a4..6ae4aa807edfd381a3c3cb3ea1c996839a1238ef 100644 --- a/tinylog.cabal +++ b/tinylog.cabal @@ -1,5 +1,5 @@ name: tinylog -version: 0.4 +version: 0.4.1 synopsis: Simplistic logging using fast-logger. author: Toralf Wittner maintainer: Toralf Wittner