module Gitter.Types
( Gitter (..)
, ResourcePath
, Room (..)
, RoomId
, RoomUri
) where
import Data.Aeson.TH (SumEncoding (TaggedObject), contentsFieldName,
defaultOptions, deriveJSON, fieldLabelModifier,
sumEncoding, tagFieldName)
import Data.String.X (dropPrefix)
import Data.Text (Text)
type ResourcePath = [Text]
type UserName = Text
type RepoName = Text
type RoomId = Text
type RoomUri = Text
data Room
= ONETOONE UserName
| REPO UserName RepoName
deriving Show
deriveJSON
defaultOptions
{ sumEncoding =
TaggedObject{tagFieldName = "type", contentsFieldName = "uri"}
}
''Room
data Gitter = Gitter
{ gitterBaseUrl :: String
, gitterRoom :: Room
, gitterTokenFile :: FilePath
}
deriveJSON defaultOptions{fieldLabelModifier = dropPrefix "gitter"} ''Gitter