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