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