{-# LANGUAGE UnicodeSyntax #-}
{-# LANGUAGE DerivingStrategies #-}

module MatrixBot.Bot.Jobs.BotJob
  ( BotJob (..)
  ) where

import qualified MatrixBot.SharedTypes as T
import Data.Text (Text)


-- | A single Bot Job
data BotJob
  = BotJobSendReaction T.TransactionId T.RoomId T.EventId Text
  | BotJobSendMessage T.TransactionId T.RoomId (Maybe T.EventId) (Maybe Text) Text
  -- ^ Send a message
  --   (@Maybe T.EventId@ means in reply to this event ID,
  --   @Maybe Text@ is optional HTML-formatted body to be paired with plain text body)
  deriving stock (BotJob -> BotJob -> Bool
(BotJob -> BotJob -> Bool)
-> (BotJob -> BotJob -> Bool) -> Eq BotJob
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BotJob -> BotJob -> Bool
== :: BotJob -> BotJob -> Bool
$c/= :: BotJob -> BotJob -> Bool
/= :: BotJob -> BotJob -> Bool
Eq, Int -> BotJob -> ShowS
[BotJob] -> ShowS
BotJob -> String
(Int -> BotJob -> ShowS)
-> (BotJob -> String) -> ([BotJob] -> ShowS) -> Show BotJob
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> BotJob -> ShowS
showsPrec :: Int -> BotJob -> ShowS
$cshow :: BotJob -> String
show :: BotJob -> String
$cshowList :: [BotJob] -> ShowS
showList :: [BotJob] -> ShowS
Show)