{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-deprecations #-}
module Language.LSP.Protocol.Internal.Types.ClientSemanticTokensRequestFullDelta where
import Control.DeepSeq
import Data.Hashable
import GHC.Generics
import Language.LSP.Protocol.Utils.Misc
import Prettyprinter
import qualified Data.Aeson as Aeson
import qualified Data.Row.Aeson as Aeson
import qualified Data.Row.Hashable as Hashable
import qualified Language.LSP.Protocol.Types.Common
data ClientSemanticTokensRequestFullDelta = ClientSemanticTokensRequestFullDelta
{
ClientSemanticTokensRequestFullDelta -> Maybe Bool
_delta :: (Maybe Bool)
}
deriving stock (Int -> ClientSemanticTokensRequestFullDelta -> ShowS
[ClientSemanticTokensRequestFullDelta] -> ShowS
ClientSemanticTokensRequestFullDelta -> String
(Int -> ClientSemanticTokensRequestFullDelta -> ShowS)
-> (ClientSemanticTokensRequestFullDelta -> String)
-> ([ClientSemanticTokensRequestFullDelta] -> ShowS)
-> Show ClientSemanticTokensRequestFullDelta
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ClientSemanticTokensRequestFullDelta -> ShowS
showsPrec :: Int -> ClientSemanticTokensRequestFullDelta -> ShowS
$cshow :: ClientSemanticTokensRequestFullDelta -> String
show :: ClientSemanticTokensRequestFullDelta -> String
$cshowList :: [ClientSemanticTokensRequestFullDelta] -> ShowS
showList :: [ClientSemanticTokensRequestFullDelta] -> ShowS
Show, ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
(ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool)
-> (ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool)
-> Eq ClientSemanticTokensRequestFullDelta
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
== :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
$c/= :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
/= :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
Eq, Eq ClientSemanticTokensRequestFullDelta
Eq ClientSemanticTokensRequestFullDelta =>
(ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Ordering)
-> (ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool)
-> (ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool)
-> (ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool)
-> (ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool)
-> (ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta)
-> (ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta)
-> Ord ClientSemanticTokensRequestFullDelta
ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Ordering
ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Ordering
compare :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Ordering
$c< :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
< :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
$c<= :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
<= :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
$c> :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
> :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
$c>= :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
>= :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta -> Bool
$cmax :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
max :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
$cmin :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
min :: ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
-> ClientSemanticTokensRequestFullDelta
Ord, (forall x.
ClientSemanticTokensRequestFullDelta
-> Rep ClientSemanticTokensRequestFullDelta x)
-> (forall x.
Rep ClientSemanticTokensRequestFullDelta x
-> ClientSemanticTokensRequestFullDelta)
-> Generic ClientSemanticTokensRequestFullDelta
forall x.
Rep ClientSemanticTokensRequestFullDelta x
-> ClientSemanticTokensRequestFullDelta
forall x.
ClientSemanticTokensRequestFullDelta
-> Rep ClientSemanticTokensRequestFullDelta x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
ClientSemanticTokensRequestFullDelta
-> Rep ClientSemanticTokensRequestFullDelta x
from :: forall x.
ClientSemanticTokensRequestFullDelta
-> Rep ClientSemanticTokensRequestFullDelta x
$cto :: forall x.
Rep ClientSemanticTokensRequestFullDelta x
-> ClientSemanticTokensRequestFullDelta
to :: forall x.
Rep ClientSemanticTokensRequestFullDelta x
-> ClientSemanticTokensRequestFullDelta
Generic)
deriving anyclass (ClientSemanticTokensRequestFullDelta -> ()
(ClientSemanticTokensRequestFullDelta -> ())
-> NFData ClientSemanticTokensRequestFullDelta
forall a. (a -> ()) -> NFData a
$crnf :: ClientSemanticTokensRequestFullDelta -> ()
rnf :: ClientSemanticTokensRequestFullDelta -> ()
NFData, Eq ClientSemanticTokensRequestFullDelta
Eq ClientSemanticTokensRequestFullDelta =>
(Int -> ClientSemanticTokensRequestFullDelta -> Int)
-> (ClientSemanticTokensRequestFullDelta -> Int)
-> Hashable ClientSemanticTokensRequestFullDelta
Int -> ClientSemanticTokensRequestFullDelta -> Int
ClientSemanticTokensRequestFullDelta -> Int
forall a. Eq a => (Int -> a -> Int) -> (a -> Int) -> Hashable a
$chashWithSalt :: Int -> ClientSemanticTokensRequestFullDelta -> Int
hashWithSalt :: Int -> ClientSemanticTokensRequestFullDelta -> Int
$chash :: ClientSemanticTokensRequestFullDelta -> Int
hash :: ClientSemanticTokensRequestFullDelta -> Int
Hashable)
deriving (forall ann. ClientSemanticTokensRequestFullDelta -> Doc ann)
-> (forall ann. [ClientSemanticTokensRequestFullDelta] -> Doc ann)
-> Pretty ClientSemanticTokensRequestFullDelta
forall ann. [ClientSemanticTokensRequestFullDelta] -> Doc ann
forall ann. ClientSemanticTokensRequestFullDelta -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
$cpretty :: forall ann. ClientSemanticTokensRequestFullDelta -> Doc ann
pretty :: forall ann. ClientSemanticTokensRequestFullDelta -> Doc ann
$cprettyList :: forall ann. [ClientSemanticTokensRequestFullDelta] -> Doc ann
prettyList :: forall ann. [ClientSemanticTokensRequestFullDelta] -> Doc ann
Pretty via (ViaJSON ClientSemanticTokensRequestFullDelta)
instance Aeson.ToJSON ClientSemanticTokensRequestFullDelta where
toJSON :: ClientSemanticTokensRequestFullDelta -> Value
toJSON (ClientSemanticTokensRequestFullDelta Maybe Bool
arg0) = [Pair] -> Value
Aeson.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [[Pair]] -> [Pair]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat ([[Pair]] -> [Pair]) -> [[Pair]] -> [Pair]
forall a b. (a -> b) -> a -> b
$ [String
"delta" String -> Maybe Bool -> [Pair]
forall e kv v.
(KeyValue e kv, ToJSON v) =>
String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe Bool
arg0]
instance Aeson.FromJSON ClientSemanticTokensRequestFullDelta where
parseJSON :: Value -> Parser ClientSemanticTokensRequestFullDelta
parseJSON = String
-> (Object -> Parser ClientSemanticTokensRequestFullDelta)
-> Value
-> Parser ClientSemanticTokensRequestFullDelta
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"ClientSemanticTokensRequestFullDelta" ((Object -> Parser ClientSemanticTokensRequestFullDelta)
-> Value -> Parser ClientSemanticTokensRequestFullDelta)
-> (Object -> Parser ClientSemanticTokensRequestFullDelta)
-> Value
-> Parser ClientSemanticTokensRequestFullDelta
forall a b. (a -> b) -> a -> b
$ \Object
arg -> Maybe Bool -> ClientSemanticTokensRequestFullDelta
ClientSemanticTokensRequestFullDelta (Maybe Bool -> ClientSemanticTokensRequestFullDelta)
-> Parser (Maybe Bool)
-> Parser ClientSemanticTokensRequestFullDelta
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
arg Object -> Key -> Parser (Maybe Bool)
forall v. FromJSON v => Object -> Key -> Parser (Maybe v)
Language.LSP.Protocol.Types.Common..:!? Key
"delta"