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