diff options
| -rw-r--r-- | snip/snip.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/snip/snip.hs b/snip/snip.hs new file mode 100644 index 0000000..532329f --- /dev/null +++ b/snip/snip.hs @@ -0,0 +1,2 @@ +-- monad transformers in action +Main Control.Monad.Writer Control.Monad.State> runState (runWriterT (get >>= \a -> tell ["foo"] >> put (a*a) >> tell ["bar"] >> tell [show a])) 5 |