module MediaWiki.API.Query.UserInfo where
import MediaWiki.API.Types
import MediaWiki.API.Utils
data UserInfoRequest
= UserInfoRequest
{ uiProp :: [String]
}
instance APIRequest UserInfoRequest where
queryKind _ = QMeta "userinfo"
showReq r
= [ opt1 "uiprop" (uiProp r)
]
emptyUserInfoRequest :: UserInfoRequest
emptyUserInfoRequest = UserInfoRequest
{ uiProp = []
}
data UserInfoResponse
= UserInfoResponse
{ uiUser :: UserInfo
}
emptyUserInfoResponse :: UserInfoResponse
emptyUserInfoResponse = UserInfoResponse
{ uiUser = emptyUserInfo
}