We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents fb3a944 + 7251e3e commit 93f7fe5Copy full SHA for 93f7fe5
1 file changed
Control/Monad/Trans/Cont.hs
@@ -150,8 +150,8 @@ newtype ContT r m a = ContT { runContT :: (a -> m r) -> m r }
150
-- final continuation.
151
--
152
-- * @'evalContT' ('lift' m) = m@
153
-evalContT :: (Monad m) => ContT r m r -> m r
154
-evalContT m = runContT m return
+evalContT :: Applicative m => ContT r m r -> m r
+evalContT m = runContT m pure
155
{-# INLINE evalContT #-}
156
157
-- | Apply a function to transform the result of a continuation-passing
0 commit comments