module MediaWiki.API.Query.Images where
import MediaWiki.API.Types
import MediaWiki.API.Utils
data ImagesRequest
= ImagesRequest
{ imLimit :: Maybe Int
, imContinueFrom :: Maybe String
}
instance APIRequest ImagesRequest where
queryKind _ = QProp "images"
showReq r =
[ mbOpt "imlimit" show (imLimit r)
, mbOpt "imcontinue" id (imContinueFrom r)
]
emptyImagesRequest :: ImagesRequest
emptyImagesRequest = ImagesRequest
{ imLimit = Nothing
, imContinueFrom = Nothing
}
data ImagesResponse
= ImagesResponse
{ imLinks :: [(PageTitle,[PageTitle])]
, imContinue :: Maybe String
}
emptyImagesResponse :: ImagesResponse
emptyImagesResponse = ImagesResponse
{ imLinks = []
, imContinue = Nothing
}