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