module HipChat.Types.Rooms.CreateRoomResponse where
import Data.Aeson
import Data.Aeson.Casing
import Data.Text (Text)
import GHC.Generics
import HipChat.Types.Common
data CreateRoomResponse = CreateRoomResponse
{ crrId :: IdOrName
, crrLinks :: CreateRoomResponseLinks
} deriving (Generic, Show)
data CreateRoomResponseLinks = CreateRoomResponseLinks
{ crrlSelf :: Text
} deriving (Generic, Show)
instance FromJSON CreateRoomResponse where
parseJSON = genericParseJSON $ aesonPrefix snakeCase
instance FromJSON CreateRoomResponseLinks where
parseJSON = genericParseJSON $ aesonPrefix snakeCase