Skip to content

Instantly share code, notes, and snippets.

@seanhess

seanhess/ListWriter.hs

Created January 13, 2012 21:18
Show Gist options
  • Save seanhess/1608750 to your computer and use it in GitHub Desktop.
Save seanhess/1608750 to your computer and use it in GitHub Desktop.
Download ZIP
ListWriter.hs
Raw
ListWriter.hs
data ListWriter = ListWriter [String]
runListWriter :: ListWriter -> [String]
runListWriter (ListWriter xs) = xs
execListWriter :: ListWriter -> [String]
execListWriter = runListWriter
instance Monad ListWriter where
return a = ListWriter []
ListWriter xs >>= f = ListWriter xs ++ ys
where ListWriter ys = f
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment