module TD.Data.CanPostStoryResult
  (CanPostStoryResult(..)) where

import qualified Data.Aeson as A
import qualified Data.Aeson.Types as AT
import qualified TD.Lib.Internal as I

-- | Represents result of checking whether the current user can post a story on behalf of the specific chat
data CanPostStoryResult
  = CanPostStoryResultOk -- ^ A story can be sent
    { CanPostStoryResult -> Maybe Int
story_count :: Maybe Int -- ^ Number of stories that can be posted by the user
    }
  | CanPostStoryResultPremiumNeeded -- ^ The user must subscribe to Telegram Premium to be able to post stories
  | CanPostStoryResultBoostNeeded -- ^ The chat must be boosted first by Telegram Premium subscribers to post more stories. Call getChatBoostStatus to get current boost status of the chat
  | CanPostStoryResultActiveStoryLimitExceeded -- ^ The limit for the number of active stories exceeded. The user can buy Telegram Premium, delete an active story, or wait for the oldest story to expire
  | CanPostStoryResultWeeklyLimitExceeded -- ^ The weekly limit for the number of posted stories exceeded. The user needs to buy Telegram Premium or wait specified time
    { CanPostStoryResult -> Maybe Int
retry_after :: Maybe Int -- ^ Time left before the user can post the next story
    }
  | CanPostStoryResultMonthlyLimitExceeded -- ^ The monthly limit for the number of posted stories exceeded. The user needs to buy Telegram Premium or wait specified time
    { retry_after :: Maybe Int -- ^ Time left before the user can post the next story
    }
  deriving (CanPostStoryResult -> CanPostStoryResult -> Bool
(CanPostStoryResult -> CanPostStoryResult -> Bool)
-> (CanPostStoryResult -> CanPostStoryResult -> Bool)
-> Eq CanPostStoryResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CanPostStoryResult -> CanPostStoryResult -> Bool
== :: CanPostStoryResult -> CanPostStoryResult -> Bool
$c/= :: CanPostStoryResult -> CanPostStoryResult -> Bool
/= :: CanPostStoryResult -> CanPostStoryResult -> Bool
Eq, Int -> CanPostStoryResult -> ShowS
[CanPostStoryResult] -> ShowS
CanPostStoryResult -> String
(Int -> CanPostStoryResult -> ShowS)
-> (CanPostStoryResult -> String)
-> ([CanPostStoryResult] -> ShowS)
-> Show CanPostStoryResult
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CanPostStoryResult -> ShowS
showsPrec :: Int -> CanPostStoryResult -> ShowS
$cshow :: CanPostStoryResult -> String
show :: CanPostStoryResult -> String
$cshowList :: [CanPostStoryResult] -> ShowS
showList :: [CanPostStoryResult] -> ShowS
Show)

instance I.ShortShow CanPostStoryResult where
  shortShow :: CanPostStoryResult -> String
shortShow CanPostStoryResultOk
    { story_count :: CanPostStoryResult -> Maybe Int
story_count = Maybe Int
story_count_
    }
      = String
"CanPostStoryResultOk"
        String -> ShowS
forall a. [a] -> [a] -> [a]
++ [String] -> String
I.cc
        [ String
"story_count" String -> Maybe Int -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Int
story_count_
        ]
  shortShow CanPostStoryResult
CanPostStoryResultPremiumNeeded
      = String
"CanPostStoryResultPremiumNeeded"
  shortShow CanPostStoryResult
CanPostStoryResultBoostNeeded
      = String
"CanPostStoryResultBoostNeeded"
  shortShow CanPostStoryResult
CanPostStoryResultActiveStoryLimitExceeded
      = String
"CanPostStoryResultActiveStoryLimitExceeded"
  shortShow CanPostStoryResultWeeklyLimitExceeded
    { retry_after :: CanPostStoryResult -> Maybe Int
retry_after = Maybe Int
retry_after_
    }
      = String
"CanPostStoryResultWeeklyLimitExceeded"
        String -> ShowS
forall a. [a] -> [a] -> [a]
++ [String] -> String
I.cc
        [ String
"retry_after" String -> Maybe Int -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Int
retry_after_
        ]
  shortShow CanPostStoryResultMonthlyLimitExceeded
    { retry_after :: CanPostStoryResult -> Maybe Int
retry_after = Maybe Int
retry_after_
    }
      = String
"CanPostStoryResultMonthlyLimitExceeded"
        String -> ShowS
forall a. [a] -> [a] -> [a]
++ [String] -> String
I.cc
        [ String
"retry_after" String -> Maybe Int -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Int
retry_after_
        ]

instance AT.FromJSON CanPostStoryResult where
  parseJSON :: Value -> Parser CanPostStoryResult
parseJSON v :: Value
v@(AT.Object Object
obj) = do
    String
t <- Object
obj Object -> Key -> Parser String
forall a. FromJSON a => Object -> Key -> Parser a
A..: Key
"@type" :: AT.Parser String

    case String
t of
      String
"canPostStoryResultOk"                       -> Value -> Parser CanPostStoryResult
parseCanPostStoryResultOk Value
v
      String
"canPostStoryResultPremiumNeeded"            -> CanPostStoryResult -> Parser CanPostStoryResult
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure CanPostStoryResult
CanPostStoryResultPremiumNeeded
      String
"canPostStoryResultBoostNeeded"              -> CanPostStoryResult -> Parser CanPostStoryResult
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure CanPostStoryResult
CanPostStoryResultBoostNeeded
      String
"canPostStoryResultActiveStoryLimitExceeded" -> CanPostStoryResult -> Parser CanPostStoryResult
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure CanPostStoryResult
CanPostStoryResultActiveStoryLimitExceeded
      String
"canPostStoryResultWeeklyLimitExceeded"      -> Value -> Parser CanPostStoryResult
parseCanPostStoryResultWeeklyLimitExceeded Value
v
      String
"canPostStoryResultMonthlyLimitExceeded"     -> Value -> Parser CanPostStoryResult
parseCanPostStoryResultMonthlyLimitExceeded Value
v
      String
_                                            -> Parser CanPostStoryResult
forall a. Monoid a => a
mempty
    
    where
      parseCanPostStoryResultOk :: A.Value -> AT.Parser CanPostStoryResult
      parseCanPostStoryResultOk :: Value -> Parser CanPostStoryResult
parseCanPostStoryResultOk = String
-> (Object -> Parser CanPostStoryResult)
-> Value
-> Parser CanPostStoryResult
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"CanPostStoryResultOk" ((Object -> Parser CanPostStoryResult)
 -> Value -> Parser CanPostStoryResult)
-> (Object -> Parser CanPostStoryResult)
-> Value
-> Parser CanPostStoryResult
forall a b. (a -> b) -> a -> b
$ \Object
o -> do
        Maybe Int
story_count_ <- Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"story_count"
        CanPostStoryResult -> Parser CanPostStoryResult
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (CanPostStoryResult -> Parser CanPostStoryResult)
-> CanPostStoryResult -> Parser CanPostStoryResult
forall a b. (a -> b) -> a -> b
$ CanPostStoryResultOk
          { story_count :: Maybe Int
story_count = Maybe Int
story_count_
          }
      parseCanPostStoryResultWeeklyLimitExceeded :: A.Value -> AT.Parser CanPostStoryResult
      parseCanPostStoryResultWeeklyLimitExceeded :: Value -> Parser CanPostStoryResult
parseCanPostStoryResultWeeklyLimitExceeded = String
-> (Object -> Parser CanPostStoryResult)
-> Value
-> Parser CanPostStoryResult
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"CanPostStoryResultWeeklyLimitExceeded" ((Object -> Parser CanPostStoryResult)
 -> Value -> Parser CanPostStoryResult)
-> (Object -> Parser CanPostStoryResult)
-> Value
-> Parser CanPostStoryResult
forall a b. (a -> b) -> a -> b
$ \Object
o -> do
        Maybe Int
retry_after_ <- Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"retry_after"
        CanPostStoryResult -> Parser CanPostStoryResult
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (CanPostStoryResult -> Parser CanPostStoryResult)
-> CanPostStoryResult -> Parser CanPostStoryResult
forall a b. (a -> b) -> a -> b
$ CanPostStoryResultWeeklyLimitExceeded
          { retry_after :: Maybe Int
retry_after = Maybe Int
retry_after_
          }
      parseCanPostStoryResultMonthlyLimitExceeded :: A.Value -> AT.Parser CanPostStoryResult
      parseCanPostStoryResultMonthlyLimitExceeded :: Value -> Parser CanPostStoryResult
parseCanPostStoryResultMonthlyLimitExceeded = String
-> (Object -> Parser CanPostStoryResult)
-> Value
-> Parser CanPostStoryResult
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"CanPostStoryResultMonthlyLimitExceeded" ((Object -> Parser CanPostStoryResult)
 -> Value -> Parser CanPostStoryResult)
-> (Object -> Parser CanPostStoryResult)
-> Value
-> Parser CanPostStoryResult
forall a b. (a -> b) -> a -> b
$ \Object
o -> do
        Maybe Int
retry_after_ <- Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"retry_after"
        CanPostStoryResult -> Parser CanPostStoryResult
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (CanPostStoryResult -> Parser CanPostStoryResult)
-> CanPostStoryResult -> Parser CanPostStoryResult
forall a b. (a -> b) -> a -> b
$ CanPostStoryResultMonthlyLimitExceeded
          { retry_after :: Maybe Int
retry_after = Maybe Int
retry_after_
          }
  parseJSON Value
_ = Parser CanPostStoryResult
forall a. Monoid a => a
mempty