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