{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-deprecations #-}
module Language.LSP.Protocol.Internal.Types.DidChangeConfigurationClientCapabilities 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 DidChangeConfigurationClientCapabilities = DidChangeConfigurationClientCapabilities
{
DidChangeConfigurationClientCapabilities -> Maybe Bool
_dynamicRegistration :: (Maybe Bool)
}
deriving stock (Int -> DidChangeConfigurationClientCapabilities -> ShowS
[DidChangeConfigurationClientCapabilities] -> ShowS
DidChangeConfigurationClientCapabilities -> String
(Int -> DidChangeConfigurationClientCapabilities -> ShowS)
-> (DidChangeConfigurationClientCapabilities -> String)
-> ([DidChangeConfigurationClientCapabilities] -> ShowS)
-> Show DidChangeConfigurationClientCapabilities
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DidChangeConfigurationClientCapabilities -> ShowS
showsPrec :: Int -> DidChangeConfigurationClientCapabilities -> ShowS
$cshow :: DidChangeConfigurationClientCapabilities -> String
show :: DidChangeConfigurationClientCapabilities -> String
$cshowList :: [DidChangeConfigurationClientCapabilities] -> ShowS
showList :: [DidChangeConfigurationClientCapabilities] -> ShowS
Show, DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
(DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool)
-> (DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool)
-> Eq DidChangeConfigurationClientCapabilities
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
== :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
$c/= :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
/= :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
Eq, Eq DidChangeConfigurationClientCapabilities
Eq DidChangeConfigurationClientCapabilities =>
(DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Ordering)
-> (DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool)
-> (DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool)
-> (DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool)
-> (DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool)
-> (DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities)
-> (DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities)
-> Ord DidChangeConfigurationClientCapabilities
DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Ordering
DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
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 :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Ordering
compare :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Ordering
$c< :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
< :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
$c<= :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
<= :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
$c> :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
> :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
$c>= :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
>= :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities -> Bool
$cmax :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
max :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
$cmin :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
min :: DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
-> DidChangeConfigurationClientCapabilities
Ord, (forall x.
DidChangeConfigurationClientCapabilities
-> Rep DidChangeConfigurationClientCapabilities x)
-> (forall x.
Rep DidChangeConfigurationClientCapabilities x
-> DidChangeConfigurationClientCapabilities)
-> Generic DidChangeConfigurationClientCapabilities
forall x.
Rep DidChangeConfigurationClientCapabilities x
-> DidChangeConfigurationClientCapabilities
forall x.
DidChangeConfigurationClientCapabilities
-> Rep DidChangeConfigurationClientCapabilities x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
DidChangeConfigurationClientCapabilities
-> Rep DidChangeConfigurationClientCapabilities x
from :: forall x.
DidChangeConfigurationClientCapabilities
-> Rep DidChangeConfigurationClientCapabilities x
$cto :: forall x.
Rep DidChangeConfigurationClientCapabilities x
-> DidChangeConfigurationClientCapabilities
to :: forall x.
Rep DidChangeConfigurationClientCapabilities x
-> DidChangeConfigurationClientCapabilities
Generic)
deriving anyclass (DidChangeConfigurationClientCapabilities -> ()
(DidChangeConfigurationClientCapabilities -> ())
-> NFData DidChangeConfigurationClientCapabilities
forall a. (a -> ()) -> NFData a
$crnf :: DidChangeConfigurationClientCapabilities -> ()
rnf :: DidChangeConfigurationClientCapabilities -> ()
NFData, Eq DidChangeConfigurationClientCapabilities
Eq DidChangeConfigurationClientCapabilities =>
(Int -> DidChangeConfigurationClientCapabilities -> Int)
-> (DidChangeConfigurationClientCapabilities -> Int)
-> Hashable DidChangeConfigurationClientCapabilities
Int -> DidChangeConfigurationClientCapabilities -> Int
DidChangeConfigurationClientCapabilities -> Int
forall a. Eq a => (Int -> a -> Int) -> (a -> Int) -> Hashable a
$chashWithSalt :: Int -> DidChangeConfigurationClientCapabilities -> Int
hashWithSalt :: Int -> DidChangeConfigurationClientCapabilities -> Int
$chash :: DidChangeConfigurationClientCapabilities -> Int
hash :: DidChangeConfigurationClientCapabilities -> Int
Hashable)
deriving (forall ann. DidChangeConfigurationClientCapabilities -> Doc ann)
-> (forall ann.
[DidChangeConfigurationClientCapabilities] -> Doc ann)
-> Pretty DidChangeConfigurationClientCapabilities
forall ann. [DidChangeConfigurationClientCapabilities] -> Doc ann
forall ann. DidChangeConfigurationClientCapabilities -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
$cpretty :: forall ann. DidChangeConfigurationClientCapabilities -> Doc ann
pretty :: forall ann. DidChangeConfigurationClientCapabilities -> Doc ann
$cprettyList :: forall ann. [DidChangeConfigurationClientCapabilities] -> Doc ann
prettyList :: forall ann. [DidChangeConfigurationClientCapabilities] -> Doc ann
Pretty via (ViaJSON DidChangeConfigurationClientCapabilities)
instance Aeson.ToJSON DidChangeConfigurationClientCapabilities where
toJSON :: DidChangeConfigurationClientCapabilities -> Value
toJSON (DidChangeConfigurationClientCapabilities 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
"dynamicRegistration" 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 DidChangeConfigurationClientCapabilities where
parseJSON :: Value -> Parser DidChangeConfigurationClientCapabilities
parseJSON = String
-> (Object -> Parser DidChangeConfigurationClientCapabilities)
-> Value
-> Parser DidChangeConfigurationClientCapabilities
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"DidChangeConfigurationClientCapabilities" ((Object -> Parser DidChangeConfigurationClientCapabilities)
-> Value -> Parser DidChangeConfigurationClientCapabilities)
-> (Object -> Parser DidChangeConfigurationClientCapabilities)
-> Value
-> Parser DidChangeConfigurationClientCapabilities
forall a b. (a -> b) -> a -> b
$ \Object
arg -> Maybe Bool -> DidChangeConfigurationClientCapabilities
DidChangeConfigurationClientCapabilities (Maybe Bool -> DidChangeConfigurationClientCapabilities)
-> Parser (Maybe Bool)
-> Parser DidChangeConfigurationClientCapabilities
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
"dynamicRegistration"