module Network.Telegram.API.Bot.Object.Update.Moving (Moving (..)) where

import "aeson" Data.Aeson (FromJSON (parseJSON), withObject, (.:))
import "aeson" Data.Aeson.Types (Object, Parser)
import "base" Control.Applicative (Alternative ((<|>)))
import "base" Data.Function (($))
import "base" Data.Functor ((<$>))
import "base" Text.Show (Show)

import Network.Telegram.API.Bot.Object.Sender (Sender)

data Moving = Gone Sender | Joined [Sender] deriving Show

instance FromJSON Moving where
        parseJSON = withObject "Moving" $ \v -> gone v <|> joined v where

                gone :: Object -> Parser Moving
                gone v = Gone <$> v .: "left_chat_member"

                joined :: Object -> Parser Moving
                joined v = Joined <$> v .: "new_chat_members"