Skip to content

Instantly share code, notes, and snippets.

@teh

teh/record.hs

Created November 15, 2015 17:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save teh/d267ffe0c3bc767dbe09 to your computer and use it in GitHub Desktop.
Save teh/d267ffe0c3bc767dbe09 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
record.hs
-- NO !
record :: (Show a, Show label, MonadIO m) => label -> Pipe a a m ()
record label = do
x <- await
print (label, x)
yield x
-- yes:
record :: (Show a, Show label, MonadIO m) => label -> Pipe a a m ()
record label = do
x <- await
print (label, x)
yield x
record label
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment