module MediaWiki.API.Action.EmailUser where
import MediaWiki.API.Types
import MediaWiki.API.Utils
data EmailUserRequest
= EmailUserRequest
{ emTarget :: Maybe String
, emSubject :: Maybe String
, emText :: Maybe String
, emToken :: Maybe Token
, emCcMe :: Bool
}
instance APIRequest EmailUserRequest where
isPostable _ = True
showReq r =
[ mbOpt "target" id (emTarget r)
, mbOpt "subject" id (emSubject r)
, mbOpt "text" id (emText r)
, mbOpt "token" id (emToken r)
, optB "ccme" (emCcMe r)
]
emptyEmailUserRequest :: EmailUserRequest
emptyEmailUserRequest = EmailUserRequest
{ emTarget = Nothing
, emSubject = Nothing
, emText = Nothing
, emToken = Nothing
, emCcMe = False
}