preamble 0.0.37 → 0.0.38

raw patch · 4 files changed

+3/−13 lines, 4 files

Files

preamble.cabal +1/−1
src/Preamble/Stats.hs +1/−1
src/Preamble/Types/Alias.hs +0/−10
src/Preamble/Types/Ctx.hs +1/−1

preamble.cabal view

@@ -1,5 +1,5 @@ name:                  preamble-version:               0.0.37+version:               0.0.38 synopsis:              Yet another prelude. description:           A prelude built on basic-prelude. homepage:              https://github.com/swift-nav/preamble

src/Preamble/Stats.hs view

@@ -21,7 +21,7 @@ stats :: (MonadStatsCtx c m, Show a) => Text -> Text -> a -> Tags -> m () stats metric name value tags = do   labels <- (<> tags) <$> view scLabels-  prefix <- ap (flip bool mempty) T.null <$> view scPrefix+  prefix <- ap (`bool` mempty) T.null <$> view scPrefix   let statsd = prefix <> name -:- show value -|- metric       tagged = T.intercalate "," $ flip map labels $ uncurry (-:-)   stat <- view scStat

src/Preamble/Types/Alias.hs view

@@ -10,9 +10,7 @@  import Control.Monad.Catch import Control.Monad.Logger-import Control.Monad.Random import Control.Monad.Trans.Control-import Control.Monad.Trans.Resource import Data.Aeson import Preamble.Prelude @@ -38,12 +36,4 @@   ( MonadBaseControl IO m   , MonadIO m   , MonadMask m-  , MonadRandom m-  )---- | MonadMain----type MonadMain m =-  ( MonadControl m-  , MonadResource m   )

src/Preamble/Types/Ctx.hs view

@@ -31,7 +31,7 @@ $(makeClassy ''Ctx)  type MonadCtx c m =-  ( MonadMain m+  ( MonadControl m   , MonadRandom m   , MonadReader c m   , MonadLogger m