katip-syslog 0.1.2.0 → 0.1.2.1

raw patch · 2 files changed

+12/−2 lines, 2 filesdep ~katipnew-uploaderPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: katip

API changes (from Hackage documentation)

Files

• katip-syslog.cabal +2/−2
• src/Katip/Scribes/Syslog.hs +10/−0

@@ -1,5 +1,5 @@ name:                katip-syslog-version:             0.1.2.0+version:             0.1.2.1 synopsis:            Syslog Katip Scribe description:         A simple Katip Scribe which logs to syslog homepage:            https://github.com/iconnect/katip-syslog#readme@@ -23,7 +23,7 @@   hs-source-dirs:      src   exposed-modules:     Katip.Scribes.Syslog   build-depends:       base  >= 4.7 && < 5-                     , katip >= 0.3.1.5 && < 0.8.0.0+                     , katip >= 0.3.1.5 && < 0.9.0.0                      , hsyslog >= 4 && < 5                      , text < 1.3.0.0                      , string-conv < 0.2

@@ -2,6 +2,7 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE RankNTypes #-} module Katip.Scribes.Syslog     ( mkSyslogScribe     ) where@@ -28,12 +29,21 @@                            } #if (MIN_VERSION_katip(0,5,0))   let scribe = Scribe (\i@Item{..} -> do+#if (MIN_VERSION_katip(0,8,0))+                          permit <- permitItem sev i+                          when permit $ do+#else                           when (permitItem sev i) $ do+#endif                             res <- try $ withSyslog cfg $ \syslog -> syslog USER (toSyslogPriority _itemSeverity) (toS $ formatItem verb i)                             case res of                               Left (e :: SomeException) -> putStrLn (show e)                               Right () -> return ())+#if (MIN_VERSION_katip(0,8,0))+                      (return ()) (permitItem sev)+#else                       (return ())+#endif #else   let scribe = Scribe $ \ i@Item{..} -> do                             when (permitItem sev i) $ do