preamble 0.0.56 → 0.0.57

raw patch · 3 files changed

+16/−7 lines, 3 filesdep +lifted-basedep ~shakersPVP ok

version bump matches the API change (PVP)

Dependencies added: lifted-base

Dependency ranges changed: shakers

API changes (from Hackage documentation)

Files

• preamble.cabal +3/−2
• src/Preamble/Ctx.hs +6/−1
• src/Preamble/Prelude.hs +7/−4

@@ -1,5 +1,5 @@ name: preamble-version: 0.0.56+version: 0.0.57 cabal-version: >=1.22 build-type: Simple license: MIT@@ -28,6 +28,7 @@         exceptions >=0.8.3,         fast-logger >=2.4.10,         lens >=4.13,+        lifted-base >=0.2.3.11,         monad-control >=1.0.1.0,         monad-logger >=0.3.24,         mtl >=2.2.1,@@ -61,7 +62,7 @@     main-is: Shakefile.hs     build-depends:         base >=4.8 && <5,-        shakers >=0.0.36+        shakers >=0.0.38     default-language: Haskell2010     ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall 

@@ -39,6 +39,11 @@   c <- view ctx <&> cPreamble <>~ preamble   runTransT c action +-- | Swallow IOError's+--+ioErrorHandle :: MonadIO m => IOError -> m ()+ioErrorHandle _e = pure ()+ -- | Run stats context. -- runStatsCtx :: MonadCtx c m => TransT StatsCtx m a -> m a@@ -47,7 +52,7 @@   s <- liftIO $ socket AF_INET Datagram defaultProtocol   h <- liftIO $ fromMaybe "127.0.0.1" <$> lookupEnv "STATS_HOST"   a <- liftIO $ inet_addr h-  let stat m = void $ sendTo s m $ SockAddrInet 8125 a+  let stat m = handle ioErrorHandle $ void $ sendTo s m $ SockAddrInet 8125 a   runTransT (StatsCtx c mempty stat mempty) action  -- | Update stats context's preamble.

@@ -24,11 +24,14 @@   , (=.)   ) where -import BasicPrelude as Exports hiding (bool)-import Control.Lens as Exports hiding (uncons, (.=), (<.>))-import Data.Bool    as Exports+import BasicPrelude             as Exports hiding (bool)+#if MIN_VERSION_basic_prelude(0,7,0)+import Control.Exception.Lifted as Exports hiding (ioError)+#endif+import Control.Lens             as Exports hiding (uncons, (.=), (<.>))+import Data.Bool                as Exports import Data.Text-import Safe         as Exports (headMay, initMay, tailMay)+import Safe                     as Exports (headMay, initMay, tailMay)  -- | maybe with hanging function. --