glue-ekg 0.6.1 → 0.6.2

raw patch · 5 files changed

+30/−28 lines, 5 filesdep ~glue-commonsetup-changed

Dependency ranges changed: glue-common

Files

• Setup.hs +0/−0
• glue-ekg.cabal +3/−3
• src/Glue/Ekg.hs +10/−10
• test/Glue/EkgSpec.hs +15/−13
• test/Main.hs +2/−2

@@ -1,5 +1,5 @@ name:                   glue-ekg-version:                0.6.1+version:                0.6.2 synopsis:               Make better services and clients. description:            Glue library that makes use of ekg for providing stats around services and clients. license:                BSD3@@ -18,7 +18,7 @@   exposed-modules:      Glue.Ekg   -- other-extensions:   build-depends:        base >=4.6 && <4.12,-                        glue-common ==0.6.1,+                        glue-common ==0.6.2,                         transformers,                         transformers-base,                         lifted-base,@@ -34,7 +34,7 @@  test-suite glue-ekg-tests   build-depends:        base >=4.6 && <4.12,-                        glue-common ==0.6.1,+                        glue-common ==0.6.2,                         glue-ekg,                         QuickCheck -any,                         quickcheck-instances,

@@ -1,4 +1,4 @@-{-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE FlexibleContexts    #-} {-# LANGUAGE ScopedTypeVariables #-}  -- | Module supporting the recording of various stats about a service using "System.Metrics".@@ -11,16 +11,16 @@   , recordLastResult ) where -import Control.Exception.Lifted-import Control.Monad.Base-import Data.Text-import Data.Time.Clock.POSIX-import Glue.Types-import Control.Monad.Trans.Control-import System.Metrics+import           Control.Exception.Lifted+import           Control.Monad.Base+import           Control.Monad.Trans.Control+import           Data.Text+import           Data.Time.Clock.POSIX+import           Glue.Types+import           System.Metrics+import qualified System.Metrics.Counter      as MC import qualified System.Metrics.Distribution as MD-import qualified System.Metrics.Counter as MC-import qualified System.Metrics.Label as ML+import qualified System.Metrics.Label        as ML  currentTime :: (MonadBaseControl IO m) => m Double currentTime = do

@@ -1,20 +1,22 @@-{-# LANGUAGE OverloadedStrings, DeriveDataTypeable, ScopedTypeVariables #-}+{-# LANGUAGE DeriveDataTypeable  #-}+{-# LANGUAGE OverloadedStrings   #-}+{-# LANGUAGE ScopedTypeVariables #-}  module Glue.EkgSpec where -import Data.Int-import Data.Typeable-import Glue.Ekg-import Glue.Types-import Test.QuickCheck.Instances()-import Test.Hspec-import Data.Text-import Test.QuickCheck-import Control.Exception.Base hiding (throw, throwIO)-import Control.Exception.Lifted-import System.Metrics+import           Control.Exception.Base      hiding (throw, throwIO)+import           Control.Exception.Lifted+import qualified Data.HashMap.Strict         as M+import           Data.Int+import           Data.Text+import           Data.Typeable+import           Glue.Ekg+import           Glue.Types+import           System.Metrics import qualified System.Metrics.Distribution as MD-import qualified Data.HashMap.Strict as M+import           Test.Hspec+import           Test.QuickCheck+import           Test.QuickCheck.Instances   ()  data EkgTestException = EkgTestException deriving (Eq, Show, Typeable) instance Exception EkgTestException

@@ -1,10 +1,10 @@ module Main where -import Test.Hspec.Runner import qualified Spec+import           Test.Hspec.Runner  customConfig :: Config-customConfig = defaultConfig +customConfig = defaultConfig   { configColorMode       = ColorAlways   , configPrintCpuTime    = True   }