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