Skip to content

Commit 93f7fe5

Browse files
authored
Merge pull request #105 from rajcspsg/issue-63
generalize the type of evalContT
2 parents fb3a944 + 7251e3e commit 93f7fe5

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

Control/Monad/Trans/Cont.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -150,8 +150,8 @@ newtype ContT r m a = ContT { runContT :: (a -> m r) -> m r }
150150
-- final continuation.
151151
--
152152
-- * @'evalContT' ('lift' m) = m@
153-
evalContT :: (Monad m) => ContT r m r -> m r
154-
evalContT m = runContT m return
153+
evalContT :: Applicative m => ContT r m r -> m r
154+
evalContT m = runContT m pure
155155
{-# INLINE evalContT #-}
156156

157157
-- | Apply a function to transform the result of a continuation-passing

0 commit comments

Comments
 (0)