Skip to content

Instantly share code, notes, and snippets.

@mwotton

mwotton/gist:e3a6f2b38e266aac6e8b

Created June 23, 2014 07:49
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 mwotton/e3a6f2b38e266aac6e8b to your computer and use it in GitHub Desktop.
Save mwotton/e3a6f2b38e266aac6e8b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
data Decision = Kill | Continue | Fork
pipeRateLimiter :: MonadIO m => c -> (c -> Decision) -> (c -> a -> NominalDiffTime -> c) -> Producer a m () -> Pipe a b m ()
pipeRateLimiter = undefined
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment