packages feed

log-warper 1.7.4 → 1.7.5

raw patch · 3 files changed

+13/−6 lines, 3 filesdep ~containers

Dependency ranges changed: containers

Files

CHANGES.md view
@@ -1,3 +1,9 @@+1.7.5+=====++* Relax `containers` package dependency from `>= 0.5.10.2` to `>= 0.5.7.1`.+  Also use stable LTS for building package.+ 1.7.4 ===== 
log-warper.cabal view
@@ -1,5 +1,5 @@ name:                log-warper-version:             1.7.4+version:             1.7.5 synopsis:            Flexible, configurable, monadic and pretty logging homepage:            https://github.com/serokell/log-warper license:             MIT@@ -12,8 +12,9 @@ stability:           experimental build-type:          Simple cabal-version:       >=1.18-description:-    This package implements nice and featureful wrapper around hslogger library.+description:         This package implements nice and featureful wrapper around hslogger library.+tested-with:         GHC == 8.0.2+                   , GHC == 8.2.1  library   exposed-modules:     System.Wlog@@ -41,7 +42,7 @@   build-depends:       aeson                >= 0.11.2.1                      , ansi-terminal        >= 0.6.2.3                      , base                 >= 4.7 && < 5-                     , containers           >= 0.5.10+                     , containers           >= 0.5.7.1                      , deepseq              >= 1.2.0.0                      , directory            >= 1.2.6.2                      , dlist                >= 0.8.0.2
src/System/Wlog/LogHandler/Syslog.hs view
@@ -50,7 +50,7 @@ import Data.Bits (shiftL, (.|.)) import Data.Text.Lazy.Builder as B import Network.BSD (getHostByName, hostAddresses)-import Network.Socket (Family, Family (..), HostName, PortNumber, SockAddr (..), Socket,+import Network.Socket (Family (..), HostName, PortNumber, SockAddr (..), Socket,                        SocketType (Datagram, Stream), connect, socket) #ifndef mingw32_HOST_OS import System.Posix.Process (getProcessID)@@ -72,7 +72,7 @@  code_of_sev :: Severities -> Int code_of_sev sevs =-    case fromMaybe Debug (Set.lookupMin sevs) of+    case fromMaybe Debug (fst <$> Set.minView sevs) of         Error   -> 3         Warning -> 4         Notice  -> 5