matrix-client-0.1.2.0: src/Network/Matrix/Room.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}

-- | Matrix room related data types
module Network.Matrix.Room (RoomCreatePreset (..), RoomCreateRequest (..)) where

import Data.Aeson (ToJSON (..), Value (..), genericToJSON)
import qualified Data.Aeson as Aeson
import Data.Aeson.Casing (aesonPrefix, snakeCase)
import Data.Text (Text)
import GHC.Generics (Generic)

-- | https://matrix.org/docs/spec/client_server/latest#post-matrix-client-r0-createroom
data RoomCreatePreset
  = PrivateChat
  | TrustedPrivateChat
  | PublicChat
  deriving (Eq, Show)

instance ToJSON RoomCreatePreset where
  toJSON preset = String $ case preset of
    PrivateChat -> "private_chat"
    TrustedPrivateChat -> "trusted_private_chat"
    PublicChat -> "public_chat"

data RoomCreateRequest = RoomCreateRequest
  { rcrPreset :: RoomCreatePreset,
    rcrRoomAliasName :: Text,
    rcrName :: Text,
    rcrTopic :: Text
  }
  deriving (Eq, Show, Generic)

instance ToJSON RoomCreateRequest where
  toJSON = genericToJSON $ (aesonPrefix snakeCase) {Aeson.omitNothingFields = True}