cef 0.1.2 → 0.1.3

raw patch · 2 files changed

+10/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• cef.cabal +1/−1
• src/System/Log/CEF/Extensions.hs +9/−4

@@ -1,5 +1,5 @@ name:                cef-version:             0.1.2+version:             0.1.3 synopsis:            CEF log format description:         This library is used to produce CEF log lines homepage:            http://github.com/picussecurity/haskell-cef.git

@@ -113,6 +113,7 @@  -------------------------------------------------------------------------------- import           Data.ByteString.Builder+import           Data.Function           (on) import           Data.Monoid import qualified Data.Text               as T import qualified Data.Text.Encoding      as T@@ -120,22 +121,26 @@ import           Data.Time.Clock.POSIX -------------------------------------------------------------------------------- -newtype Extensions = Extensions { unExtensions :: Builder }+data Extensions = Extensions { unExtensions :: Builder }+                | NoExtension  instance Monoid Extensions where   mempty                                = emptyExtensions   {-# INLINE mappend #-}-  Extensions e1 `mappend` Extensions e2 = Extensions (e1 <> " " <> e2)+  mappend NoExtension b                 = b+  mappend a NoExtension                 = a+  mappend (Extensions a) (Extensions b) = Extensions $ a <> " " <> b  emptyExtensions :: Extensions-emptyExtensions = Extensions mempty+emptyExtensions = NoExtension  -- | -- >>> :set -XOverloadedStrings -- >>> toLazyByteString $ extensionsBuilder (applicationProtocol "PUT" <> deviceCustomIPv6Address1 "localnet" "::1") -- "app=PUT c6a1Label=localnet c6a1=::1" extensionsBuilder :: Extensions -> Builder-extensionsBuilder = unExtensions+extensionsBuilder (Extensions b) = b+extensionsBuilder NoExtension    = mempty  {-# INLINE ext #-} ext :: T.Text -> Builder -> Extensions