From 1463864734e1648b51bf4b6490ee3c0f8ce3a27c Mon Sep 17 00:00:00 2001
From: Toralf Wittner <tw@dtex.org>
Date: Fri, 10 Jan 2014 15:52:11 +0100
Subject: [PATCH] Remove 'value' from 'Message'.

---
 src/System/Logger/Message.hs | 9 ---------
 tinylog.cabal                | 2 +-
 2 files changed, 1 insertion(+), 10 deletions(-)

diff --git a/src/System/Logger/Message.hs b/src/System/Logger/Message.hs
index fb28206..d6fd588 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 41e9fc5..6ae4aa8 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 <tw@dtex.org>
-- 
GitLab