module TD.Data.TonConnectConnectRequest
  ( TonConnectConnectRequest(..)    
  , defaultTonConnectConnectRequest 
  ) where

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

data TonConnectConnectRequest
  = TonConnectConnectRequest -- ^ Contains information about a request to connect the user's TON wallet to a dApp using TON Connect
    { TonConnectConnectRequest -> Maybe Text
manifest_url :: Maybe T.Text                                        -- ^ URL of the manifest of the dApp
    , TonConnectConnectRequest -> Maybe [TonConnectConnectItem]
items        :: Maybe [TonConnectConnectItem.TonConnectConnectItem] -- ^ Items requested from the wallet
    }
  deriving (TonConnectConnectRequest -> TonConnectConnectRequest -> Bool
(TonConnectConnectRequest -> TonConnectConnectRequest -> Bool)
-> (TonConnectConnectRequest -> TonConnectConnectRequest -> Bool)
-> Eq TonConnectConnectRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TonConnectConnectRequest -> TonConnectConnectRequest -> Bool
== :: TonConnectConnectRequest -> TonConnectConnectRequest -> Bool
$c/= :: TonConnectConnectRequest -> TonConnectConnectRequest -> Bool
/= :: TonConnectConnectRequest -> TonConnectConnectRequest -> Bool
Eq, Int -> TonConnectConnectRequest -> ShowS
[TonConnectConnectRequest] -> ShowS
TonConnectConnectRequest -> String
(Int -> TonConnectConnectRequest -> ShowS)
-> (TonConnectConnectRequest -> String)
-> ([TonConnectConnectRequest] -> ShowS)
-> Show TonConnectConnectRequest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TonConnectConnectRequest -> ShowS
showsPrec :: Int -> TonConnectConnectRequest -> ShowS
$cshow :: TonConnectConnectRequest -> String
show :: TonConnectConnectRequest -> String
$cshowList :: [TonConnectConnectRequest] -> ShowS
showList :: [TonConnectConnectRequest] -> ShowS
Show)

instance I.ShortShow TonConnectConnectRequest where
  shortShow :: TonConnectConnectRequest -> String
shortShow TonConnectConnectRequest
    { manifest_url :: TonConnectConnectRequest -> Maybe Text
manifest_url = Maybe Text
manifest_url_
    , items :: TonConnectConnectRequest -> Maybe [TonConnectConnectItem]
items        = Maybe [TonConnectConnectItem]
items_
    }
      = String
"TonConnectConnectRequest"
        String -> ShowS
forall a. [a] -> [a] -> [a]
++ [String] -> String
I.cc
        [ String
"manifest_url" String -> Maybe Text -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Text
manifest_url_
        , String
"items"        String -> Maybe [TonConnectConnectItem] -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe [TonConnectConnectItem]
items_
        ]

instance AT.FromJSON TonConnectConnectRequest where
  parseJSON :: Value -> Parser TonConnectConnectRequest
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
"tonConnectConnectRequest" -> Value -> Parser TonConnectConnectRequest
parseTonConnectConnectRequest Value
v
      String
_                          -> Parser TonConnectConnectRequest
forall a. Monoid a => a
mempty
    
    where
      parseTonConnectConnectRequest :: A.Value -> AT.Parser TonConnectConnectRequest
      parseTonConnectConnectRequest :: Value -> Parser TonConnectConnectRequest
parseTonConnectConnectRequest = String
-> (Object -> Parser TonConnectConnectRequest)
-> Value
-> Parser TonConnectConnectRequest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"TonConnectConnectRequest" ((Object -> Parser TonConnectConnectRequest)
 -> Value -> Parser TonConnectConnectRequest)
-> (Object -> Parser TonConnectConnectRequest)
-> Value
-> Parser TonConnectConnectRequest
forall a b. (a -> b) -> a -> b
$ \Object
o -> do
        Maybe Text
manifest_url_ <- Object
o Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"manifest_url"
        Maybe [TonConnectConnectItem]
items_        <- Object
o Object -> Key -> Parser (Maybe [TonConnectConnectItem])
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"items"
        TonConnectConnectRequest -> Parser TonConnectConnectRequest
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (TonConnectConnectRequest -> Parser TonConnectConnectRequest)
-> TonConnectConnectRequest -> Parser TonConnectConnectRequest
forall a b. (a -> b) -> a -> b
$ TonConnectConnectRequest
          { manifest_url :: Maybe Text
manifest_url = Maybe Text
manifest_url_
          , items :: Maybe [TonConnectConnectItem]
items        = Maybe [TonConnectConnectItem]
items_
          }
  parseJSON Value
_ = Parser TonConnectConnectRequest
forall a. Monoid a => a
mempty

instance AT.ToJSON TonConnectConnectRequest where
  toJSON :: TonConnectConnectRequest -> Value
toJSON TonConnectConnectRequest
    { manifest_url :: TonConnectConnectRequest -> Maybe Text
manifest_url = Maybe Text
manifest_url_
    , items :: TonConnectConnectRequest -> Maybe [TonConnectConnectItem]
items        = Maybe [TonConnectConnectItem]
items_
    }
      = [Pair] -> Value
A.object
        [ Key
"@type"        Key -> Value -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
A..= Text -> Value
AT.String Text
"tonConnectConnectRequest"
        , Key
"manifest_url" Key -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
A..= Maybe Text
manifest_url_
        , Key
"items"        Key -> Maybe [TonConnectConnectItem] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
A..= Maybe [TonConnectConnectItem]
items_
        ]

defaultTonConnectConnectRequest :: TonConnectConnectRequest
defaultTonConnectConnectRequest :: TonConnectConnectRequest
defaultTonConnectConnectRequest =
  TonConnectConnectRequest
    { manifest_url :: Maybe Text
manifest_url = Maybe Text
forall a. Maybe a
Nothing
    , items :: Maybe [TonConnectConnectItem]
items        = Maybe [TonConnectConnectItem]
forall a. Maybe a
Nothing
    }