module MediaWiki.API.Query.LangLinks where
import MediaWiki.API.Types
import MediaWiki.API.Utils
data LangLinksRequest
= LangLinksRequest
{ llLimit :: Maybe Int
, llContinueFrom :: Maybe String
}
instance APIRequest LangLinksRequest where
queryKind _ = QProp "langlinks"
showReq r
= [ mbOpt "lllimit" show (llLimit r)
, mbOpt "llcontinue" id (llContinueFrom r)
]
emptyLangLinksRequest :: LangLinksRequest
emptyLangLinksRequest = LangLinksRequest
{ llLimit = Nothing
, llContinueFrom = Nothing
}
data LangLinksResponse
= LangLinksResponse
{ llPages :: [(PageTitle,[LangPageInfo])]
, llContinue :: Maybe String
}
emptyLangLinksResponse :: LangLinksResponse
emptyLangLinksResponse = LangLinksResponse
{ llPages = []
, llContinue = Nothing
}
data LangPageInfo
= LangPageInfo
{ langName :: LangName
, langTitle :: Maybe String
}
emptyLangPageInfo :: LangPageInfo
emptyLangPageInfo = LangPageInfo
{ langName = "en"
, langTitle = Nothing
}