@@ -23,7 +23,7 @@ instance (Monoid w, Monad m) => Applicative (RWST r w s m) where
2323 pure a = MkRWST $ \_,s => return (a, s, neutral)
2424 (MkRWST f) <*> (MkRWST v) = MkRWST $ \r,s => do (a, s', w) <- v r s
2525 (fn, ss, w') <- f r s
26− return (fn a, ss, w <+> w)
26+ return (fn a, ss, w <+> w')
2727
2828instance (Monoid w, Monad m) => Monad (RWST r w s m) where
2929 (MkRWST m) >>= k = MkRWST $ \r,s => do (a, s', w) <- m r s