co-log-sys 0.1.0.0 → 0.1.1.0

raw patch · 7 files changed

+23/−21 lines, 7 filesdep +basedep −base-nopreludedep −loot-prelude

Dependencies added: base

Dependencies removed: base-noprelude, loot-prelude

Files

• README.md +3/−3
• co-log-sys.cabal +5/−13
• src/Colog/Syslog/Actions.hs +2/−0
• src/Colog/Syslog/Config.hs +5/−3
• src/Colog/Syslog/Handler.hs +2/−0
• src/Colog/Syslog/Message.hs +2/−0
• src/Colog/Syslog/Priority.hs +4/−2

@@ -38,6 +38,6 @@  ## About Serokell [↑](#co-log-sys) -`co-log-sys` is maintained by [Serokell](https://serokell.io/).-We love open source software.-See which [services](https://serokell.io/#services) we provide and [drop us a line](mailto:hi@serokell.io) if you are interested.+`co-log-sys` is maintained and funded with :heart: by [Serokell](https://serokell.io/). The names and logo for Serokell are trademark of Serokell OÜ.++We love open source software! See [our other projects](https://serokell.io/community?utm_source=github) or [hire us](https://serokell.io/hire-us?utm_source=github) to design, develop and grow your idea!

@@ -1,11 +1,5 @@--- This file has been generated from package.yaml by hpack version 0.28.2.------ see: https://github.com/sol/hpack------ hash: 520cc0cb2a37c01624683b0e8a29dd4bc16b83353cb40ca2b7fc01a4d32c015d- name:           co-log-sys-version:        0.1.0.0+version:        0.1.1.0 synopsis:       Syslog implementation on top of 'co-log-core' description:    Please see the README on GitHub at <https://github.com/serokell/co-log-sys#readme> category:       Logging@@ -37,14 +31,13 @@       Paths_co_log_sys   hs-source-dirs:       src-  default-extensions: ApplicativeDo BangPatterns FlexibleContexts LambdaCase MultiWayIf NegativeLiterals OverloadedLabels OverloadedStrings PatternSynonyms PolyKinds RankNTypes RecordWildCards RecursiveDo StandaloneDeriving TupleSections+  default-extensions: ApplicativeDo BangPatterns FlexibleContexts LambdaCase MultiWayIf NegativeLiterals OverloadedLabels OverloadedStrings PatternSynonyms PolyKinds RankNTypes RecordWildCards RecursiveDo StandaloneDeriving TupleSections NoImplicitPrelude   ghc-options: -Weverything -Wno-missing-exported-signatures -Wno-missing-import-lists -Wno-missed-specialisations -Wno-all-missed-specialisations -Wno-unsafe -Wno-safe -Wno-missing-local-signatures -Wno-monomorphism-restriction -Wno-implicit-prelude -Wno-orphans   build-depends:       aeson-    , base-noprelude >=4.7 && <5+    , base >=4.7 && <5     , co-log-core     , fmt-    , loot-prelude     , microlens     , monad-control     , mtl@@ -60,15 +53,14 @@       Paths_co_log_sys   hs-source-dirs:       test-  default-extensions: ApplicativeDo BangPatterns FlexibleContexts LambdaCase MultiWayIf NegativeLiterals OverloadedLabels OverloadedStrings PatternSynonyms PolyKinds RankNTypes RecordWildCards RecursiveDo StandaloneDeriving TupleSections+  default-extensions: ApplicativeDo BangPatterns FlexibleContexts LambdaCase MultiWayIf NegativeLiterals OverloadedLabels OverloadedStrings PatternSynonyms PolyKinds RankNTypes RecordWildCards RecursiveDo StandaloneDeriving TupleSections NoImplicitPrelude   ghc-options: -Weverything -Wno-missing-exported-signatures -Wno-missing-import-lists -Wno-missed-specialisations -Wno-all-missed-specialisations -Wno-unsafe -Wno-safe -Wno-missing-local-signatures -Wno-monomorphism-restriction -Wno-implicit-prelude -Wno-orphans -threaded -rtsopts -with-rtsopts=-N   build-depends:       aeson-    , base-noprelude >=4.7 && <5+    , base >=4.7 && <5     , co-log-core     , co-log-sys     , fmt-    , loot-prelude     , microlens     , monad-control     , mtl

@@ -4,6 +4,8 @@        , withLogMessageSyslogGeneric        ) where +import Universum+ import Colog.Core.Action (LogAction (..))  import Colog.Syslog.Config

@@ -9,6 +9,8 @@        , PortNumber        ) where +import Universum+ import Colog.Syslog.Priority (Facility (..))  import Data.Aeson (FromJSON(..), ToJSON(..), Value (..), withText, withObject,@@ -42,9 +44,9 @@     | Local String -- ^ Path to local Unix FIFO. Not supported under Windows.     | Remote Family HostName PortNumber     -- ^ Remote server, it's made of:-    --     * Network Address 'Family' (usually AF_INET or AF_INET6)-    --     * Remote 'HostName' (can also be localhost)-    --     * 'PortNumber', for syslog is usually 514+    -- Network Address 'Family' (usually AF_INET or AF_INET6)+    -- , remote 'HostName' (can also be localhost)+    -- and 'PortNumber' (usually 514 for syslog)     deriving (Show, Read, Eq)  instance FromJSON Collector where

@@ -6,6 +6,8 @@        , logSyslogMessage        ) where +import Universum+ import Colog.Core.Action (LogAction (..))  import Colog.Syslog.Config (SyslogConfig (..), Collector (..))

@@ -8,6 +8,8 @@        , fmtMessageFlat        ) where +import Universum+ import Colog.Syslog.Priority (Severity(..))  import Fmt ((|+), (|++|))

@@ -10,6 +10,8 @@        , facilityCode        ) where +import Universum+ import Data.Aeson (FromJSON(..), ToJSON(..), Value (..), withText, withObject,     (.:), (.=), object) import Data.Bits ((.|.), shiftL)@@ -76,7 +78,7 @@         maybe (fail $ "Unknown Severity: \""+|t|+"\"") pure . readMaybe $ toString t  instance ToJSON Severity where-    toJSON = String . Prelude.show+    toJSON = String . Universum.show  -- | Numerical code for a 'Severity'. Used to calculate the 'priorityValue'. severityCode :: Severity -> Int@@ -116,7 +118,7 @@         maybe (fail $ "Unknown Facility: \""+|t|+"\"") pure . readMaybe $ toString t  instance ToJSON Facility where-    toJSON = String . Prelude.show+    toJSON = String . Universum.show  -- | Numerical code for a 'Facility'. Used to calculate the 'priorityValue'. facilityCode :: Facility -> Int