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