heavy-logger-amazon (empty) → 0.1.0.0

raw patch · 5 files changed

+116/−0 lines, 5 filesdep +amazonka-coredep +basedep +binarysetup-changed

Dependencies added: amazonka-core, base, binary, heavy-logger, template-haskell, text

Files

• LICENSE +30/−0
• README.md +11/−0
• Setup.hs +2/−0
• heavy-logger-amazon.cabal +31/−0
• src/System/Log/Heavy/AWS.hs +42/−0

@@ -0,0 +1,30 @@+Copyright Author name here (c) 2017++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Author name here nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,11 @@+heavy-logger-amazon README+==========================++This package is a simple adapter for use of [amazonka][1] package with [heavy-logger][2].++`Amazonka` has it's own interface for logging. This package provides implementation of+that interface by `heavy-logger`.++[1]: https://hackage.haskell.org/package/amazonka+[2]: https://hackage.haskell.org/package/heavy-logger+

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,31 @@+name:                heavy-logger-amazon+version:             0.1.0.0+synopsis:            heavy-logger compatibility with amazonka-core logging+description:         This package is a simple adapter for use of @amazonka@ package with @heavy-logger@.+                     .+                     @Amazonka@ has it's own interface for logging. This package provides implementation of that interface by @heavy-logger@.+homepage:            https://github.com/portnov/heavy-logger-amazon#readme+license:             BSD3+license-file:        LICENSE+author:              IlyaPortnov+maintainer:          portnov84@rambler.ru+copyright:           2017 ILya Portnov+category:            System+build-type:          Simple+extra-source-files:  README.md+cabal-version:       >=1.10++library+  hs-source-dirs:      src+  exposed-modules:     System.Log.Heavy.AWS+  build-depends:       base >= 4.7 && < 5,+                       template-haskell >= 2.10,+                       binary >= 0.8.3.0,+                       text >= 1.2.2.2,+                       heavy-logger >= 0.3.1.0,+                       amazonka-core >= 1.4.5+  default-language:    Haskell2010++source-repository head+  type:     git+  location: https://github.com/portnov/heavy-logger-amazon

@@ -0,0 +1,42 @@+-- | This module provides functions to integrate @amazonka@ logging with +-- @heavy-logging@ package.+module System.Log.Heavy.AWS+  (awsLogLevelToLevel,+   toAwsLogger,+   getAwsLogger+  ) where++import Data.Binary.Builder+import qualified Data.Text.Lazy.Encoding as TLE+import Language.Haskell.TH.Syntax (Loc (..))+import System.Log.Heavy as H+import Network.AWS.Types as AWS++-- | Translate Amazonka's LogLevel to heavy-logger's Level.+awsLogLevelToLevel :: LogLevel -> Level+awsLogLevelToLevel Info = info_level+awsLogLevelToLevel Error = error_level+awsLogLevelToLevel Debug = debug_level+awsLogLevelToLevel Trace = trace_level++-- | Obtain Amazonka's Logger in a monad that has heavy-logger's Logger.+getAwsLogger :: (Monad m, HasLogger m) => m AWS.Logger+getAwsLogger = do+    logger <- getLogger+    return $ toAwsLogger logger++-- | Convert heavy-logger's SpecializedLogger to Amaoznka's Logger.+toAwsLogger :: H.SpecializedLogger -> AWS.Logger+toAwsLogger logger =+    \lvl builder -> logger (mkMessage lvl builder)+  where+    mkMessage lvl builder =+        LogMessage {+          lmLevel = awsLogLevelToLevel lvl,+          lmSource = ["Amazon"],+          lmLocation = Loc "Unknown" "unknown" "Unknown" (0,0) (0,0),+          lmFormatString = TLE.decodeUtf8 $ toLazyByteString builder,+          lmFormatVars = (),+          lmContext = []+        }+