module Prosper.Internal.CSV
( csvGet
, csvGetStream
) where
import Network.Http.Client
import System.IO.Streams (InputStream)
import Data.ByteString (ByteString)
import Prosper.Money
import Prosper.User
import Prosper.Internal.Request
csvGet
:: User
-> ByteString
-> IO ByteString
csvGet userInfo url = issueRequest userInfo url GET "text/csv" concatHandler []
csvGetStream
:: User
-> ByteString
-> (InputStream ByteString -> IO a)
-> IO a
csvGetStream userInfo url handler =
issueRequest userInfo url GET "text/csv" (\_ is -> handler is) []