diff --git a/src/System/Logger/Message.hs b/src/System/Logger/Message.hs index fae0adcec264f6c3ab9382180844a76fdf8fbaf4..6d9a43c312305f32dbb8a0336cd373d9e2535fa8 100644 --- a/src/System/Logger/Message.hs +++ b/src/System/Logger/Message.hs @@ -49,10 +49,16 @@ instance ToBytes Word8 where bytes = B.word8Dec instance ToBytes Word16 where bytes = B.word16Dec instance ToBytes Word32 where bytes = B.word32Dec instance ToBytes Word64 where bytes = B.word64Dec +instance ToBytes Float where bytes = B.floatDec +instance ToBytes Double where bytes = B.doubleDec instance ToBytes Text where bytes = B.byteString . encodeUtf8 instance ToBytes T.Text where bytes = B.lazyByteString . T.encodeUtf8 instance ToBytes [Char] where bytes = B.stringUtf8 +instance ToBytes Bool where + bytes True = val "True" + bytes False = val "False" + newtype Msg = Msg { builders :: [Builder] } msg :: ToBytes a => a -> Msg -> Msg diff --git a/tinylog.cabal b/tinylog.cabal index b71a46797f7d108daa74bc97621d3127c6ba5a59..1b797e96023405c1687ad70c948b33be398094c3 100644 --- a/tinylog.cabal +++ b/tinylog.cabal @@ -1,5 +1,5 @@ name: tinylog -version: 0.6 +version: 0.6.1 synopsis: Simplistic logging using fast-logger. author: Toralf Wittner maintainer: Toralf Wittner