diff --git a/preamble.cabal b/preamble.cabal
--- a/preamble.cabal
+++ b/preamble.cabal
@@ -1,5 +1,5 @@
 name: preamble
-version: 0.0.48
+version: 0.0.49
 cabal-version: >=1.22
 build-type: Simple
 license: MIT
@@ -61,7 +61,7 @@
     main-is: Shakefile.hs
     build-depends:
         base >=4.8 && <5,
-        shakers >=0.0.28
+        shakers >=0.0.31
     default-language: Haskell2010
     ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall
 
diff --git a/src/Preamble/Lens.hs b/src/Preamble/Lens.hs
--- a/src/Preamble/Lens.hs
+++ b/src/Preamble/Lens.hs
@@ -15,7 +15,7 @@
 makeClassyConstraints :: Name -> [Name] -> DecsQ
 makeClassyConstraints name names = do
   decls <- makeClassy name
-  return $ addConstraints names decls
+  pure $ addConstraints names decls
 
 -- | Add constaints to a class.
 --
diff --git a/src/Preamble/Prelude.hs b/src/Preamble/Prelude.hs
--- a/src/Preamble/Prelude.hs
+++ b/src/Preamble/Prelude.hs
@@ -41,28 +41,28 @@
 
 -- | Maybe that returns () if Nothing
 --
-maybe_ :: Monad m => Maybe a -> (a -> m ()) -> m ()
-maybe_ = flip $ maybe $ return ()
+maybe_ :: Applicative f => Maybe a -> (a -> f ()) -> f ()
+maybe_ = flip $ maybe $ pure ()
 
 -- | Throw Exception on either error.
 --
 eitherThrowIO :: (MonadIO m, Exception e) => Either e a -> m a
-eitherThrowIO = either (liftIO . throwIO) return
+eitherThrowIO = either (liftIO . throwIO) pure
 
 -- | Throw userError on either error.
 --
 eitherThrowIO' :: MonadIO m => Either String a -> m a
-eitherThrowIO' = either (liftIO . throwIO . userError) return
+eitherThrowIO' = either (liftIO . throwIO . userError) pure
 
 -- | Throw Exception on maybe nothing.
 --
 maybeThrowIO :: (MonadIO m, Exception e) => e -> Maybe a -> m a
-maybeThrowIO e = maybe (liftIO $ throwIO e) return
+maybeThrowIO e = maybe (liftIO $ throwIO e) pure
 
 -- | Throw userError on maybe nothing.
 --
 maybeThrowIO' :: MonadIO m => String -> Maybe a -> m a
-maybeThrowIO' s = maybe (liftIO $ throwIO $ userError s) return
+maybeThrowIO' s = maybe (liftIO $ throwIO $ userError s) pure
 
 -- | Throw userError on false.
 --
diff --git a/src/Preamble/Trace.hs b/src/Preamble/Trace.hs
--- a/src/Preamble/Trace.hs
+++ b/src/Preamble/Trace.hs
@@ -53,7 +53,7 @@
 -- | Logger to nowhere.
 --
 nullLogger :: Logger
-nullLogger _loc _source _level _s = return ()
+nullLogger _loc _source _level _s = pure ()
 
 -- | Trace out event with preamble and timestamp.
 --
diff --git a/src/Preamble/Types/Orphan.hs b/src/Preamble/Types/Orphan.hs
--- a/src/Preamble/Types/Orphan.hs
+++ b/src/Preamble/Types/Orphan.hs
@@ -21,7 +21,7 @@
   toJSON = toJSON . toText
 
 instance FromJSON UUID where
-  parseJSON (String s) = maybe mzero return $ fromText s
+  parseJSON (String s) = maybe mzero pure $ fromText s
   parseJSON _ = mzero
 #endif