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

{-|
How whitespace and indentation is handled during completion
item insertion.

@since 3.16.0
-}
data InsertTextMode = 
    {-|
  The insertion or replace strings is taken as it is. If the
  value is multi line the lines below the cursor will be
  inserted using the indentation defined in the string value.
  The client will not apply any kind of adjustments to the
  string.
  -}
  InsertTextMode_AsIs
  | {-|
  The editor adjusts leading whitespace of new lines so that
  they match the indentation up to the cursor of the line for
  which the item is accepted.

  Consider a line like this: <2tabs><cursor><3tabs>foo. Accepting a
  multi line completion item is indented using 2 tabs and all
  following lines inserted will be indented using 2 tabs as well.
  -}
  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