Skip to content

Instantly share code, notes, and snippets.

@etorreborre

etorreborre/output-http.hs

Created April 28, 2019 13:28
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save etorreborre/2c3becb73a34a3bf287f8116d0473472 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save etorreborre/2c3becb73a34a3bf287f8116d0473472 to your computer and use it in GitHub Desktop.
Download ZIP
output-http
Raw
output-http.hs
newtype Output m = Output {
saveOutputs :: forall a . (ToJSON a) => Stream (Of a) m () -> Stream (Of a) m ()
}
newHttpOutput :: (Monad m) => Http m -> Output m
newHttpOutput http = Output {
saveOutputs = saveOutputs' http
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment