We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 947300f + 4ff6ce1 commit f219dd9Copy full SHA for f219dd9
src/Control/Monad/Cont/Trans.purs
@@ -19,7 +19,7 @@ callCC f = ContT (\k -> runContT (f (\a -> ContT (\_ -> k a))) k)
19
instance functorContT :: (Monad m) => Functor (ContT r m) where
20
(<$>) f m = ContT (\k -> runContT m (\a -> k $ f a))
21
22
-instance appluContT :: (Functor m, Monad m) => Apply (ContT r m) where
+instance applyContT :: (Functor m, Monad m) => Apply (ContT r m) where
23
(<*>) f v = ContT (\k -> runContT f $ (\g -> runContT v (\a -> (k $ g a))))
24
25
instance applicativeContT :: (Functor m, Monad m) => Applicative (ContT r m) where
0 commit comments