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