Commit eac9f2c

committed

added: tell

1 parent f481c68 commit eac9f2cCopy full SHA for eac9f2c

File tree

-3

lines changed

-3

lines changed

Lines changed: 4 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,8 @@`
	`1`	`+{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies, FlexibleInstances #-}`
`1`	`2`	`module WriterT where`
`2`	`3`
`3`		`-import Control.Monad.Trans`
`4`	`4`	`import Control.Monad`
	`5`	`+import Control.Monad.Trans`
`5`	`6`	`import Control.Monad.Writer`
`6`	`7`	`import Data.Monoid`
`7`	`8`
`@@ -27,5 +28,5 @@ instance Monoid w => MonadTrans (MyWriterT w) where`
`27`	`28`	`return (a,mempty)`
`28`	`29`
`29`	`30`
`30`		`---tell :: w -> MyWriterT ((),w)`
`31`		`-tell w = MyWriterT $ return ((),w)`
	`31`	`+instance (Monoidw, Monadm) =>MonadWriterw (MyWriterTwm) where`
	`32`	`+tell w = MyWriterT $ return ((),w)`

Comments

(0)