Safe Haskell | None |
---|---|
Language | Haskell98 |
- data Response responseType
- responseStatus :: forall responseType. Lens' (Response responseType) Status
- responseBody :: forall a b. Lens (Response a) (Response b) a b
- responseHeaders :: forall responseType. Lens' (Response responseType) ResponseHeaders
- data TwitterErrorMessage
- twitterErrorMessage :: Lens' TwitterErrorMessage Text
- twitterErrorCode :: Lens' TwitterErrorMessage Int
- data WithCursor cursorKey wrapped
- previousCursor :: forall cursorKey wrapped. Lens' (WithCursor cursorKey wrapped) Integer
- nextCursor :: forall cursorKey wrapped. Lens' (WithCursor cursorKey wrapped) Integer
- contents :: forall cursorKey a b. Lens (WithCursor cursorKey a) (WithCursor cursorKey b) [a] [b]
- data TwitterError
- = FromJSONError String
- | TwitterErrorResponse Status ResponseHeaders [TwitterErrorMessage]
- | TwitterUnknownErrorResponse Status ResponseHeaders Value
- | TwitterStatusError Status ResponseHeaders Value
- class CursorKey a where
- cursorKey :: a -> Text
- data IdsCursorKey
- data UsersCursorKey
- data ListsCursorKey
Response
responseStatus :: forall responseType. Lens' (Response responseType) Status Source
responseBody :: forall a b. Lens (Response a) (Response b) a b Source
responseHeaders :: forall responseType. Lens' (Response responseType) ResponseHeaders Source
TwitterErrorMessage
data TwitterErrorMessage Source
Twitter Error Messages
see detail: https://dev.twitter.com/docs/error-codes-responses
twitterErrorMessage :: Lens' TwitterErrorMessage Text Source
twitterErrorCode :: Lens' TwitterErrorMessage Int Source
WithCursor
data WithCursor cursorKey wrapped Source
A wrapper for API responses which have "next_cursor" field.
The first type parameter of WithCursor
specifies the field name of contents.
>>>
let Just res = decode "{\"previous_cursor\": 0, \"next_cursor\": 1234567890, \"ids\": [1111111111]}" :: Maybe (WithCursor IdsCursorKey UserId)
>>>
nextCursor res
1234567890>>>
contents res
[1111111111]
>>>
let Just res = decode "{\"previous_cursor\": 0, \"next_cursor\": 0, \"users\": [1000]}" :: Maybe (WithCursor UsersCursorKey UserId)
>>>
nextCursor res
0>>>
contents res
[1000]
Show wrapped => Show (WithCursor cursorKey wrapped) Source | |
(FromJSON wrapped, CursorKey c) => FromJSON (WithCursor c wrapped) Source |
previousCursor :: forall cursorKey wrapped. Lens' (WithCursor cursorKey wrapped) Integer Source
nextCursor :: forall cursorKey wrapped. Lens' (WithCursor cursorKey wrapped) Integer Source
contents :: forall cursorKey a b. Lens (WithCursor cursorKey a) (WithCursor cursorKey b) [a] [b] Source
Re-exports
data TwitterError Source
FromJSONError String | |
TwitterErrorResponse Status ResponseHeaders [TwitterErrorMessage] | |
TwitterUnknownErrorResponse Status ResponseHeaders Value | |
TwitterStatusError Status ResponseHeaders Value |
data IdsCursorKey Source
Phantom type to specify the key which point out the content in the response.
data UsersCursorKey Source
Phantom type to specify the key which point out the content in the response.
data ListsCursorKey Source
Phantom type to specify the key which point out the content in the response.