graflog 0.1.2 → 1.0.0

raw patch · 2 files changed

+8/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Graflog.Logger: Protected :: a -> Protected a

+ Graflog.Logger: [unProtect] :: Protected a -> a

+ Graflog.Logger: instance GHC.Base.Functor Graflog.Logger.Protected

+ Graflog.Logger: instance GHC.Classes.Eq a => GHC.Classes.Eq (Graflog.Logger.Protected a)

+ Graflog.Logger: instance GHC.Show.Show a => GHC.Show.Show (Graflog.Logger.Protected a)

+ Graflog.Logger: newtype Protected a

- Graflog.Logger: Event :: CorrelationId -> EventId -> Action -> Text -> Event

+ Graflog.Logger: Event :: CorrelationId -> EventId -> Action -> Value -> Event

- Graflog.Logger: [_message] :: Event -> Text

+ Graflog.Logger: [_message] :: Event -> Value

Files

graflog.cabal +2/−2
src/Graflog/Logger.hs +6/−2

graflog.cabal view

@@ -1,5 +1,5 @@ name:                graflog-version:             0.1.2+version:             1.0.0 synopsis:            Monadic correlated log events description:         Please see README.md homepage:            https://github.com/m-arnold/graflog#readme@@ -22,7 +22,7 @@                      , aeson                      , bytestring   default-language:    Haskell2010-  default-extensions:  GeneralizedNewtypeDeriving+  default-extensions:  GeneralizedNewtypeDeriving DeriveFunctor  test-suite graflog-test   type:                exitcode-stdio-1.0

src/Graflog/Logger.hs view

@@ -7,11 +7,12 @@   , CorrelationId(..)   , EventId(..)   , Action(..)+  , Protected(..)   , logEvent'   , jsonEncode   ) where -import Data.Aeson (ToJSON, FromJSON, encode)+import Data.Aeson (ToJSON, FromJSON, encode, Value) import Data.Aeson.TH (deriveJSON, defaultOptions, fieldLabelModifier) import Data.ByteString (ByteString) import Data.ByteString.Lazy (toStrict)@@ -22,6 +23,9 @@  import Graflog.Console +newtype Protected a = Protected { unProtect :: a }+  deriving (Functor, Show, Eq)+ class Monad m => Logger m where   logEvent :: Event -> m () @@ -38,7 +42,7 @@   { _correlationId :: CorrelationId   , _eventId :: EventId   , _action :: Action-  , _message :: Text+  , _message :: Value   } deriving (Eq, Show)  deriveJSON defaultOptions{fieldLabelModifier = drop 1} ''Event