4 ms·
Found this: https://github.com/RobinKrom/Mtgox/blob/master/src/Mtgox/HttpApi.hs https://github.com/RobinKrom/Mtgox/blob/master/src/Mtgox/Htt... receiveResponse
by joshrotenberg 13y ago
Found this: https://github.com/RobinKrom/Mtgox/blob/master/src/Mtgox/HttpApi.hs https://github.com/RobinKrom/Mtgox/blob/master/src/Mtgox/Htt...
receiveResponse con (\_ i -> parseFromStream json i))
This seems to work but without the benefit of being marshalled into my type.
- enigmo 13y agoThe `parseJSON <$>` bit in my sample converts it to your type. If you don't like the infix applicative it could be written as: receiveResponse con (fmap parseJSON . parseFromStream json)