{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-deprecations #-}
module Language.LSP.Protocol.Internal.Types.TextDocumentSyncKind 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 Data.Set
import qualified Data.String
import qualified Language.LSP.Protocol.Types.Common
import qualified Language.LSP.Protocol.Types.LspEnum
data TextDocumentSyncKind =
TextDocumentSyncKind_None
|
TextDocumentSyncKind_Full
|
TextDocumentSyncKind_Incremental
deriving stock (Int -> TextDocumentSyncKind -> ShowS
[TextDocumentSyncKind] -> ShowS
TextDocumentSyncKind -> String
(Int -> TextDocumentSyncKind -> ShowS)
-> (TextDocumentSyncKind -> String)
-> ([TextDocumentSyncKind] -> ShowS)
-> Show TextDocumentSyncKind
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TextDocumentSyncKind -> ShowS
showsPrec :: Int -> TextDocumentSyncKind -> ShowS
$cshow :: TextDocumentSyncKind -> String
show :: TextDocumentSyncKind -> String
$cshowList :: [TextDocumentSyncKind] -> ShowS
showList :: [TextDocumentSyncKind] -> ShowS
Show, TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
(TextDocumentSyncKind -> TextDocumentSyncKind -> Bool)
-> (TextDocumentSyncKind -> TextDocumentSyncKind -> Bool)
-> Eq TextDocumentSyncKind
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
== :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
$c/= :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
/= :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
Eq, Eq TextDocumentSyncKind
Eq TextDocumentSyncKind =>
(TextDocumentSyncKind -> TextDocumentSyncKind -> Ordering)
-> (TextDocumentSyncKind -> TextDocumentSyncKind -> Bool)
-> (TextDocumentSyncKind -> TextDocumentSyncKind -> Bool)
-> (TextDocumentSyncKind -> TextDocumentSyncKind -> Bool)
-> (TextDocumentSyncKind -> TextDocumentSyncKind -> Bool)
-> (TextDocumentSyncKind
-> TextDocumentSyncKind -> TextDocumentSyncKind)
-> (TextDocumentSyncKind
-> TextDocumentSyncKind -> TextDocumentSyncKind)
-> Ord TextDocumentSyncKind
TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
TextDocumentSyncKind -> TextDocumentSyncKind -> Ordering
TextDocumentSyncKind
-> TextDocumentSyncKind -> TextDocumentSyncKind
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 :: TextDocumentSyncKind -> TextDocumentSyncKind -> Ordering
compare :: TextDocumentSyncKind -> TextDocumentSyncKind -> Ordering
$c< :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
< :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
$c<= :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
<= :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
$c> :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
> :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
$c>= :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
>= :: TextDocumentSyncKind -> TextDocumentSyncKind -> Bool
$cmax :: TextDocumentSyncKind
-> TextDocumentSyncKind -> TextDocumentSyncKind
max :: TextDocumentSyncKind
-> TextDocumentSyncKind -> TextDocumentSyncKind
$cmin :: TextDocumentSyncKind
-> TextDocumentSyncKind -> TextDocumentSyncKind
min :: TextDocumentSyncKind
-> TextDocumentSyncKind -> TextDocumentSyncKind
Ord, (forall x. TextDocumentSyncKind -> Rep TextDocumentSyncKind x)
-> (forall x. Rep TextDocumentSyncKind x -> TextDocumentSyncKind)
-> Generic TextDocumentSyncKind
forall x. Rep TextDocumentSyncKind x -> TextDocumentSyncKind
forall x. TextDocumentSyncKind -> Rep TextDocumentSyncKind x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. TextDocumentSyncKind -> Rep TextDocumentSyncKind x
from :: forall x. TextDocumentSyncKind -> Rep TextDocumentSyncKind x
$cto :: forall x. Rep TextDocumentSyncKind x -> TextDocumentSyncKind
to :: forall x. Rep TextDocumentSyncKind x -> TextDocumentSyncKind
Generic)
deriving anyclass (TextDocumentSyncKind -> ()
(TextDocumentSyncKind -> ()) -> NFData TextDocumentSyncKind
forall a. (a -> ()) -> NFData a
$crnf :: TextDocumentSyncKind -> ()
rnf :: TextDocumentSyncKind -> ()
NFData, Eq TextDocumentSyncKind
Eq TextDocumentSyncKind =>
(Int -> TextDocumentSyncKind -> Int)
-> (TextDocumentSyncKind -> Int) -> Hashable TextDocumentSyncKind
Int -> TextDocumentSyncKind -> Int
TextDocumentSyncKind -> Int
forall a. Eq a => (Int -> a -> Int) -> (a -> Int) -> Hashable a
$chashWithSalt :: Int -> TextDocumentSyncKind -> Int
hashWithSalt :: Int -> TextDocumentSyncKind -> Int
$chash :: TextDocumentSyncKind -> Int
hash :: TextDocumentSyncKind -> Int
Hashable)
deriving ( [TextDocumentSyncKind] -> Value
[TextDocumentSyncKind] -> Encoding
TextDocumentSyncKind -> Bool
TextDocumentSyncKind -> Value
TextDocumentSyncKind -> Encoding
(TextDocumentSyncKind -> Value)
-> (TextDocumentSyncKind -> Encoding)
-> ([TextDocumentSyncKind] -> Value)
-> ([TextDocumentSyncKind] -> Encoding)
-> (TextDocumentSyncKind -> Bool)
-> ToJSON TextDocumentSyncKind
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> (a -> Bool)
-> ToJSON a
$ctoJSON :: TextDocumentSyncKind -> Value
toJSON :: TextDocumentSyncKind -> Value
$ctoEncoding :: TextDocumentSyncKind -> Encoding
toEncoding :: TextDocumentSyncKind -> Encoding
$ctoJSONList :: [TextDocumentSyncKind] -> Value
toJSONList :: [TextDocumentSyncKind] -> Value
$ctoEncodingList :: [TextDocumentSyncKind] -> Encoding
toEncodingList :: [TextDocumentSyncKind] -> Encoding
$comitField :: TextDocumentSyncKind -> Bool
omitField :: TextDocumentSyncKind -> Bool
Aeson.ToJSON
, Maybe TextDocumentSyncKind
Value -> Parser [TextDocumentSyncKind]
Value -> Parser TextDocumentSyncKind
(Value -> Parser TextDocumentSyncKind)
-> (Value -> Parser [TextDocumentSyncKind])
-> Maybe TextDocumentSyncKind
-> FromJSON TextDocumentSyncKind
forall a.
(Value -> Parser a)
-> (Value -> Parser [a]) -> Maybe a -> FromJSON a
$cparseJSON :: Value -> Parser TextDocumentSyncKind
parseJSON :: Value -> Parser TextDocumentSyncKind
$cparseJSONList :: Value -> Parser [TextDocumentSyncKind]
parseJSONList :: Value -> Parser [TextDocumentSyncKind]
$comittedField :: Maybe TextDocumentSyncKind
omittedField :: Maybe TextDocumentSyncKind
Aeson.FromJSON ) via (Language.LSP.Protocol.Types.LspEnum.AsLspEnum TextDocumentSyncKind)
deriving (forall ann. TextDocumentSyncKind -> Doc ann)
-> (forall ann. [TextDocumentSyncKind] -> Doc ann)
-> Pretty TextDocumentSyncKind
forall ann. [TextDocumentSyncKind] -> Doc ann
forall ann. TextDocumentSyncKind -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
$cpretty :: forall ann. TextDocumentSyncKind -> Doc ann
pretty :: forall ann. TextDocumentSyncKind -> Doc ann
$cprettyList :: forall ann. [TextDocumentSyncKind] -> Doc ann
prettyList :: forall ann. [TextDocumentSyncKind] -> Doc ann
Pretty via (ViaJSON TextDocumentSyncKind)
instance Language.LSP.Protocol.Types.LspEnum.LspEnum TextDocumentSyncKind where
knownValues :: Set TextDocumentSyncKind
knownValues = [TextDocumentSyncKind] -> Set TextDocumentSyncKind
forall a. Ord a => [a] -> Set a
Data.Set.fromList [TextDocumentSyncKind
TextDocumentSyncKind_None
,TextDocumentSyncKind
TextDocumentSyncKind_Full
,TextDocumentSyncKind
TextDocumentSyncKind_Incremental]
type EnumBaseType TextDocumentSyncKind = Language.LSP.Protocol.Types.Common.UInt
toEnumBaseType :: TextDocumentSyncKind -> EnumBaseType TextDocumentSyncKind
toEnumBaseType TextDocumentSyncKind
TextDocumentSyncKind_None = EnumBaseType TextDocumentSyncKind
UInt
0
toEnumBaseType TextDocumentSyncKind
TextDocumentSyncKind_Full = EnumBaseType TextDocumentSyncKind
UInt
1
toEnumBaseType TextDocumentSyncKind
TextDocumentSyncKind_Incremental = EnumBaseType TextDocumentSyncKind
UInt
2
fromEnumBaseType :: EnumBaseType TextDocumentSyncKind -> Maybe TextDocumentSyncKind
fromEnumBaseType EnumBaseType TextDocumentSyncKind
0 = TextDocumentSyncKind -> Maybe TextDocumentSyncKind
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
pure TextDocumentSyncKind
TextDocumentSyncKind_None
fromEnumBaseType EnumBaseType TextDocumentSyncKind
1 = TextDocumentSyncKind -> Maybe TextDocumentSyncKind
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
pure TextDocumentSyncKind
TextDocumentSyncKind_Full
fromEnumBaseType EnumBaseType TextDocumentSyncKind
2 = TextDocumentSyncKind -> Maybe TextDocumentSyncKind
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
pure TextDocumentSyncKind
TextDocumentSyncKind_Incremental
fromEnumBaseType EnumBaseType TextDocumentSyncKind
_ = Maybe TextDocumentSyncKind
forall a. Maybe a
Nothing