{- ORMOLU_DISABLE -}
{- HLINT ignore -}
-- THIS IS A GENERATED FILE, DO NOT EDIT

{-# 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

{-|
Defines how the host (editor) should sync
document changes to the language server.
-}
data TextDocumentSyncKind = 
    {-|
  Documents should not be synced at all.
  -}
  TextDocumentSyncKind_None
  | {-|
  Documents are synced by always sending the full content
  of the document.
  -}
  TextDocumentSyncKind_Full
  | {-|
  Documents are synced by sending the full content on open.
  After that only incremental updates to the document are
  send.
  -}
  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