module Diffbot.Article where
import Data.Maybe
import Diffbot.Types
data Article = Article
{ articleContent :: Maybe Content
, articleFields :: Maybe String
, articleTimeout :: Maybe Int
}
instance Fields Article where
fields = articleFields
setFields f a = a { articleFields = f }
instance Post Article where
content = articleContent
setContent c a = a { articleContent = c }
instance Timeout Article where
timeout = articleTimeout
setTimeout t a = a { articleTimeout = t }
instance Request Article where
toReq r = Req { reqApi = "http://api.diffbot.com/v2/article"
, reqContent = content r
, reqQuery = catMaybes [ fieldsQuery r
, timeoutQuery r
]
}
defArticle :: Article
defArticle = Article { articleContent = Nothing
, articleFields = Nothing
, articleTimeout = Nothing
}