module MediaWiki.API.Action.Rollback where
import MediaWiki.API.Types
import MediaWiki.API.Utils
data RollbackRequest
= RollbackRequest
{ rbTitle :: PageName
, rbUser :: UserName
, rbToken :: Token
, rbSummary :: Maybe String
, rbMarkBot :: Maybe Bool
}
instance APIRequest RollbackRequest where
isPostable _ = True
showReq r =
[ opt "title" (rbTitle r)
, opt "user" (rbUser r)
, opt "token" (rbToken r)
, mbOpt "summary" id (rbSummary r)
, mbOpt "markbot" (\ x -> if x then "1" else "0") (rbMarkBot r)
]
emptyRollbackRequest :: RollbackRequest
emptyRollbackRequest = RollbackRequest
{ rbTitle = ""
, rbUser = ""
, rbToken = ""
, rbSummary = Nothing
, rbMarkBot = Nothing
}