module MediaWiki.API.Query.ExternalLinks where
import MediaWiki.API.Types
import MediaWiki.API.Utils
data ExternalLinksRequest
= ExternalLinksRequest
{ elLimit :: Maybe Int
, elOffset :: Maybe String
}
instance APIRequest ExternalLinksRequest where
queryKind _ = QProp "extlinks"
showReq r =
[ mbOpt "ellimit" show (elLimit r)
, mbOpt "eloffset" id (elOffset r)
]
emptyExternalLinksRequest :: ExternalLinksRequest
emptyExternalLinksRequest = ExternalLinksRequest
{ elLimit = Nothing
, elOffset = Nothing
}
data ExternalLinksResponse
= ExternalLinksResponse
{ elPages :: [(PageTitle,[URLString])]
, elContinue :: Maybe String
}
emptyExternalLinksResponse :: ExternalLinksResponse
emptyExternalLinksResponse = ExternalLinksResponse
{ elPages = []
, elContinue = Nothing
}