module MediaWiki.API.Action.Unblock where
import MediaWiki.API.Types
import MediaWiki.API.Utils
data UnblockRequest
= UnblockRequest
{ ublkId :: Maybe String
, ublkUser :: Maybe UserName
, ublkToken :: Maybe Token
, ublkGetToken :: Bool
, ublkReason :: Maybe String
}
instance APIRequest UnblockRequest where
isPostable _ = True
showReq r =
[ mbOpt "id" id (ublkId r)
, mbOpt "user" id (ublkUser r)
, mbOpt "token" id (ublkToken r)
, optB "gettoken" (ublkGetToken r)
, mbOpt "reason" id (ublkReason r)
]
emptyUnblockRequest :: UnblockRequest
emptyUnblockRequest = UnblockRequest
{ ublkId = Nothing
, ublkUser = Nothing
, ublkToken = Nothing
, ublkGetToken = False
, ublkReason = Nothing
}