diff --git a/preamble.cabal b/preamble.cabal
--- a/preamble.cabal
+++ b/preamble.cabal
@@ -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
 
diff --git a/src/Preamble/Ctx.hs b/src/Preamble/Ctx.hs
--- a/src/Preamble/Ctx.hs
+++ b/src/Preamble/Ctx.hs
@@ -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.
diff --git a/src/Preamble/Prelude.hs b/src/Preamble/Prelude.hs
--- a/src/Preamble/Prelude.hs
+++ b/src/Preamble/Prelude.hs
@@ -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.
 --