diff --git a/preamble.cabal b/preamble.cabal
--- a/preamble.cabal
+++ b/preamble.cabal
@@ -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
diff --git a/src/Preamble/Stats.hs b/src/Preamble/Stats.hs
--- a/src/Preamble/Stats.hs
+++ b/src/Preamble/Stats.hs
@@ -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
diff --git a/src/Preamble/Types/Alias.hs b/src/Preamble/Types/Alias.hs
--- a/src/Preamble/Types/Alias.hs
+++ b/src/Preamble/Types/Alias.hs
@@ -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
   )
diff --git a/src/Preamble/Types/Ctx.hs b/src/Preamble/Types/Ctx.hs
--- a/src/Preamble/Types/Ctx.hs
+++ b/src/Preamble/Types/Ctx.hs
@@ -31,7 +31,7 @@
 $(makeClassy ''Ctx)
 
 type MonadCtx c m =
-  ( MonadMain m
+  ( MonadControl m
   , MonadRandom m
   , MonadReader c m
   , MonadLogger m