snip/snip.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

import Control.Monad.Writer 
import Control.Monad.State

-- monad transformers in action
main = print $ 
       runState (
               runWriterT  (
                   get >>= \a -> 
                   tell ["foo"] >> 
                   put (a*a) >> 
                   tell ["bar"] >> 
                   tell [show a]
                   )
               ) 5