diff --git a/src/Protolude.hs b/src/Protolude.hs
index 2ac666b97..4740ee295 100644
--- a/src/Protolude.hs
+++ b/src/Protolude.hs
@@ -19,6 +19,7 @@ module Protolude (
   throwTo,
   foreach,
   show,
+  pass,
 
   LText,
   LByteString,
@@ -397,6 +398,9 @@ throwTo tid e = liftIO (Control.Exception.throwTo tid e)
 foreach :: Functor f => f a -> (a -> b) -> f b
 foreach = flip fmap
 
+pass :: Applicative f => f ()
+pass = pure ()
+
 show :: (Show a, StringConv String b) => a -> b
 show x = toS (PBase.show x)
 {-# SPECIALIZE show :: Show  a => a -> Text  #-}