module Network.API.Telegram.Bot.Object.Update.Message.Origin (Origin (..)) where import "aeson" Data.Aeson (FromJSON (parseJSON), withObject, (.:)) import "base" Control.Applicative ((<*>), (<|>)) import "base" Control.Monad (Monad ((>>=))) import "base" Data.Function (flip, ($)) import "base" Data.Functor ((<$>)) import "base" Data.Int (Int64) import "base" Text.Show (Show) import Network.API.Telegram.Bot.Object.Chat (Chat, ID, Channel, Conversation, Group) import Network.API.Telegram.Bot.Object.Sender (Sender) import Network.API.Telegram.Bot.Property (Accessible (access), Identifiable (Identificator, ident)) data Origin = Private Conversation Sender | Group Group Sender | Blog Channel deriving Show instance Accessible (ID Chat) Origin where access f (Private conversation sender) = flip Private sender <$> access f conversation access f (Group group sender) = flip Group sender <$> access f group access f (Blog channel) = Blog <$> access f channel instance Identifiable Origin where type Identificator Origin = Int64 ident (Private c _) = ident c ident (Group g _) = ident g ident (Blog c) = ident c instance FromJSON Origin where parseJSON = withObject "Message" $ \msg -> msg .: "chat" >>= \chat -> (Group <$> parseJSON chat <*> msg .: "from") <|> (Private <$> parseJSON chat <*> msg .: "from") <|> (Blog <$> parseJSON chat)