{- ORMOLU_DISABLE -}
{- HLINT ignore -}
-- THIS IS A GENERATED FILE, DO NOT EDIT

{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-deprecations #-}
module Language.LSP.Protocol.Internal.Types.WorkspaceClientCapabilities 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.Internal.Types.CodeLensWorkspaceClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.DiagnosticWorkspaceClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.DidChangeConfigurationClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.ExecuteCommandClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.FileOperationClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.InlayHintWorkspaceClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.InlineValueWorkspaceClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.SemanticTokensWorkspaceClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.WorkspaceEditClientCapabilities
import qualified Language.LSP.Protocol.Internal.Types.WorkspaceSymbolClientCapabilities
import qualified Language.LSP.Protocol.Types.Common

{-|
Workspace specific client capabilities.
-}
data WorkspaceClientCapabilities = WorkspaceClientCapabilities 
  { {-|
  The client supports applying batch edits
  to the workspace by supporting the request
  'workspace/applyEdit'
  -}
  WorkspaceClientCapabilities -> Maybe Bool
_applyEdit :: (Maybe Bool)
  , {-|
  Capabilities specific to `WorkspaceEdit`s.
  -}
  WorkspaceClientCapabilities
-> Maybe WorkspaceEditClientCapabilities
_workspaceEdit :: (Maybe Language.LSP.Protocol.Internal.Types.WorkspaceEditClientCapabilities.WorkspaceEditClientCapabilities)
  , {-|
  Capabilities specific to the `workspace/didChangeConfiguration` notification.
  -}
  WorkspaceClientCapabilities
-> Maybe DidChangeConfigurationClientCapabilities
_didChangeConfiguration :: (Maybe Language.LSP.Protocol.Internal.Types.DidChangeConfigurationClientCapabilities.DidChangeConfigurationClientCapabilities)
  , {-|
  Capabilities specific to the `workspace/didChangeWatchedFiles` notification.
  -}
  WorkspaceClientCapabilities
-> Maybe DidChangeWatchedFilesClientCapabilities
_didChangeWatchedFiles :: (Maybe Language.LSP.Protocol.Internal.Types.DidChangeWatchedFilesClientCapabilities.DidChangeWatchedFilesClientCapabilities)
  , {-|
  Capabilities specific to the `workspace/symbol` request.
  -}
  WorkspaceClientCapabilities
-> Maybe WorkspaceSymbolClientCapabilities
_symbol :: (Maybe Language.LSP.Protocol.Internal.Types.WorkspaceSymbolClientCapabilities.WorkspaceSymbolClientCapabilities)
  , {-|
  Capabilities specific to the `workspace/executeCommand` request.
  -}
  WorkspaceClientCapabilities
-> Maybe ExecuteCommandClientCapabilities
_executeCommand :: (Maybe Language.LSP.Protocol.Internal.Types.ExecuteCommandClientCapabilities.ExecuteCommandClientCapabilities)
  , {-|
  The client has support for workspace folders.

  @since 3.6.0
  -}
  WorkspaceClientCapabilities -> Maybe Bool
_workspaceFolders :: (Maybe Bool)
  , {-|
  The client supports `workspace/configuration` requests.

  @since 3.6.0
  -}
  WorkspaceClientCapabilities -> Maybe Bool
_configuration :: (Maybe Bool)
  , {-|
  Capabilities specific to the semantic token requests scoped to the
  workspace.

  @since 3.16.0.
  -}
  WorkspaceClientCapabilities
-> Maybe SemanticTokensWorkspaceClientCapabilities
_semanticTokens :: (Maybe Language.LSP.Protocol.Internal.Types.SemanticTokensWorkspaceClientCapabilities.SemanticTokensWorkspaceClientCapabilities)
  , {-|
  Capabilities specific to the code lens requests scoped to the
  workspace.

  @since 3.16.0.
  -}
  WorkspaceClientCapabilities
-> Maybe CodeLensWorkspaceClientCapabilities
_codeLens :: (Maybe Language.LSP.Protocol.Internal.Types.CodeLensWorkspaceClientCapabilities.CodeLensWorkspaceClientCapabilities)
  , {-|
  The client has support for file notifications/requests for user operations on files.

  Since 3.16.0
  -}
  WorkspaceClientCapabilities
-> Maybe FileOperationClientCapabilities
_fileOperations :: (Maybe Language.LSP.Protocol.Internal.Types.FileOperationClientCapabilities.FileOperationClientCapabilities)
  , {-|
  Capabilities specific to the inline values requests scoped to the
  workspace.

  @since 3.17.0.
  -}
  WorkspaceClientCapabilities
-> Maybe InlineValueWorkspaceClientCapabilities
_inlineValue :: (Maybe Language.LSP.Protocol.Internal.Types.InlineValueWorkspaceClientCapabilities.InlineValueWorkspaceClientCapabilities)
  , {-|
  Capabilities specific to the inlay hint requests scoped to the
  workspace.

  @since 3.17.0.
  -}
  WorkspaceClientCapabilities
-> Maybe InlayHintWorkspaceClientCapabilities
_inlayHint :: (Maybe Language.LSP.Protocol.Internal.Types.InlayHintWorkspaceClientCapabilities.InlayHintWorkspaceClientCapabilities)
  , {-|
  Capabilities specific to the diagnostic requests scoped to the
  workspace.

  @since 3.17.0.
  -}
  WorkspaceClientCapabilities
-> Maybe DiagnosticWorkspaceClientCapabilities
_diagnostics :: (Maybe Language.LSP.Protocol.Internal.Types.DiagnosticWorkspaceClientCapabilities.DiagnosticWorkspaceClientCapabilities)
  }
  deriving stock (Int -> WorkspaceClientCapabilities -> ShowS
[WorkspaceClientCapabilities] -> ShowS
WorkspaceClientCapabilities -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WorkspaceClientCapabilities] -> ShowS
$cshowList :: [WorkspaceClientCapabilities] -> ShowS
show :: WorkspaceClientCapabilities -> String
$cshow :: WorkspaceClientCapabilities -> String
showsPrec :: Int -> WorkspaceClientCapabilities -> ShowS
$cshowsPrec :: Int -> WorkspaceClientCapabilities -> ShowS
Show, WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
$c/= :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
== :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
$c== :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
Eq, Eq WorkspaceClientCapabilities
WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
WorkspaceClientCapabilities
-> WorkspaceClientCapabilities -> Ordering
WorkspaceClientCapabilities
-> WorkspaceClientCapabilities -> WorkspaceClientCapabilities
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
min :: WorkspaceClientCapabilities
-> WorkspaceClientCapabilities -> WorkspaceClientCapabilities
$cmin :: WorkspaceClientCapabilities
-> WorkspaceClientCapabilities -> WorkspaceClientCapabilities
max :: WorkspaceClientCapabilities
-> WorkspaceClientCapabilities -> WorkspaceClientCapabilities
$cmax :: WorkspaceClientCapabilities
-> WorkspaceClientCapabilities -> WorkspaceClientCapabilities
>= :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
$c>= :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
> :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
$c> :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
<= :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
$c<= :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
< :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
$c< :: WorkspaceClientCapabilities -> WorkspaceClientCapabilities -> Bool
compare :: WorkspaceClientCapabilities
-> WorkspaceClientCapabilities -> Ordering
$ccompare :: WorkspaceClientCapabilities
-> WorkspaceClientCapabilities -> Ordering
Ord, forall x.
Rep WorkspaceClientCapabilities x -> WorkspaceClientCapabilities
forall x.
WorkspaceClientCapabilities -> Rep WorkspaceClientCapabilities x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep WorkspaceClientCapabilities x -> WorkspaceClientCapabilities
$cfrom :: forall x.
WorkspaceClientCapabilities -> Rep WorkspaceClientCapabilities x
Generic)
  deriving anyclass (WorkspaceClientCapabilities -> ()
forall a. (a -> ()) -> NFData a
rnf :: WorkspaceClientCapabilities -> ()
$crnf :: WorkspaceClientCapabilities -> ()
NFData, Eq WorkspaceClientCapabilities
Int -> WorkspaceClientCapabilities -> Int
WorkspaceClientCapabilities -> Int
forall a. Eq a -> (Int -> a -> Int) -> (a -> Int) -> Hashable a
hash :: WorkspaceClientCapabilities -> Int
$chash :: WorkspaceClientCapabilities -> Int
hashWithSalt :: Int -> WorkspaceClientCapabilities -> Int
$chashWithSalt :: Int -> WorkspaceClientCapabilities -> Int
Hashable)
  deriving forall ann. [WorkspaceClientCapabilities] -> Doc ann
forall ann. WorkspaceClientCapabilities -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
prettyList :: forall ann. [WorkspaceClientCapabilities] -> Doc ann
$cprettyList :: forall ann. [WorkspaceClientCapabilities] -> Doc ann
pretty :: forall ann. WorkspaceClientCapabilities -> Doc ann
$cpretty :: forall ann. WorkspaceClientCapabilities -> Doc ann
Pretty via (ViaJSON WorkspaceClientCapabilities)

instance Aeson.ToJSON WorkspaceClientCapabilities where
  toJSON :: WorkspaceClientCapabilities -> Value
toJSON (WorkspaceClientCapabilities Maybe Bool
arg0 Maybe WorkspaceEditClientCapabilities
arg1 Maybe DidChangeConfigurationClientCapabilities
arg2 Maybe DidChangeWatchedFilesClientCapabilities
arg3 Maybe WorkspaceSymbolClientCapabilities
arg4 Maybe ExecuteCommandClientCapabilities
arg5 Maybe Bool
arg6 Maybe Bool
arg7 Maybe SemanticTokensWorkspaceClientCapabilities
arg8 Maybe CodeLensWorkspaceClientCapabilities
arg9 Maybe FileOperationClientCapabilities
arg10 Maybe InlineValueWorkspaceClientCapabilities
arg11 Maybe InlayHintWorkspaceClientCapabilities
arg12 Maybe DiagnosticWorkspaceClientCapabilities
arg13) = [Pair] -> Value
Aeson.object forall a b. (a -> b) -> a -> b
$ forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat forall a b. (a -> b) -> a -> b
$  [String
"applyEdit" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe Bool
arg0
    ,String
"workspaceEdit" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe WorkspaceEditClientCapabilities
arg1
    ,String
"didChangeConfiguration" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe DidChangeConfigurationClientCapabilities
arg2
    ,String
"didChangeWatchedFiles" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe DidChangeWatchedFilesClientCapabilities
arg3
    ,String
"symbol" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe WorkspaceSymbolClientCapabilities
arg4
    ,String
"executeCommand" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe ExecuteCommandClientCapabilities
arg5
    ,String
"workspaceFolders" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe Bool
arg6
    ,String
"configuration" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe Bool
arg7
    ,String
"semanticTokens" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe SemanticTokensWorkspaceClientCapabilities
arg8
    ,String
"codeLens" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe CodeLensWorkspaceClientCapabilities
arg9
    ,String
"fileOperations" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe FileOperationClientCapabilities
arg10
    ,String
"inlineValue" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe InlineValueWorkspaceClientCapabilities
arg11
    ,String
"inlayHint" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe InlayHintWorkspaceClientCapabilities
arg12
    ,String
"diagnostics" forall kv v. (KeyValue kv, ToJSON v) => String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe DiagnosticWorkspaceClientCapabilities
arg13]

instance Aeson.FromJSON WorkspaceClientCapabilities where
  parseJSON :: Value -> Parser WorkspaceClientCapabilities
parseJSON = forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"WorkspaceClientCapabilities" forall a b. (a -> b) -> a -> b
$ \Object
arg -> Maybe Bool
-> Maybe WorkspaceEditClientCapabilities
-> Maybe DidChangeConfigurationClientCapabilities
-> Maybe DidChangeWatchedFilesClientCapabilities
-> Maybe WorkspaceSymbolClientCapabilities
-> Maybe ExecuteCommandClientCapabilities
-> Maybe Bool
-> Maybe Bool
-> Maybe SemanticTokensWorkspaceClientCapabilities
-> Maybe CodeLensWorkspaceClientCapabilities
-> Maybe FileOperationClientCapabilities
-> Maybe InlineValueWorkspaceClientCapabilities
-> Maybe InlayHintWorkspaceClientCapabilities
-> Maybe DiagnosticWorkspaceClientCapabilities
-> WorkspaceClientCapabilities
WorkspaceClientCapabilities forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"applyEdit" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"workspaceEdit" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"didChangeConfiguration" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"didChangeWatchedFiles" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"symbol" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"executeCommand" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"workspaceFolders" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"configuration" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"semanticTokens" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"codeLens" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"fileOperations" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"inlineValue" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"inlayHint" forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
arg forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Aeson..:! Key
"diagnostics"