{- 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.StaticRegistrationOptions 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.Text
import qualified Language.LSP.Protocol.Types.Common

{-|
Static registration options to be returned in the initialize
request.
-}
data StaticRegistrationOptions = StaticRegistrationOptions 
  { {-|
  The id used to register the request. The id can be used to deregister
  the request again. See also Registration#id.
  -}
  StaticRegistrationOptions -> Maybe Text
_id :: (Maybe Data.Text.Text)
  }
  deriving stock (Int -> StaticRegistrationOptions -> ShowS
[StaticRegistrationOptions] -> ShowS
StaticRegistrationOptions -> String
(Int -> StaticRegistrationOptions -> ShowS)
-> (StaticRegistrationOptions -> String)
-> ([StaticRegistrationOptions] -> ShowS)
-> Show StaticRegistrationOptions
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> StaticRegistrationOptions -> ShowS
showsPrec :: Int -> StaticRegistrationOptions -> ShowS
$cshow :: StaticRegistrationOptions -> String
show :: StaticRegistrationOptions -> String
$cshowList :: [StaticRegistrationOptions] -> ShowS
showList :: [StaticRegistrationOptions] -> ShowS
Show, StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
(StaticRegistrationOptions -> StaticRegistrationOptions -> Bool)
-> (StaticRegistrationOptions -> StaticRegistrationOptions -> Bool)
-> Eq StaticRegistrationOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
== :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
$c/= :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
/= :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
Eq, Eq StaticRegistrationOptions
Eq StaticRegistrationOptions =>
(StaticRegistrationOptions
 -> StaticRegistrationOptions -> Ordering)
-> (StaticRegistrationOptions -> StaticRegistrationOptions -> Bool)
-> (StaticRegistrationOptions -> StaticRegistrationOptions -> Bool)
-> (StaticRegistrationOptions -> StaticRegistrationOptions -> Bool)
-> (StaticRegistrationOptions -> StaticRegistrationOptions -> Bool)
-> (StaticRegistrationOptions
    -> StaticRegistrationOptions -> StaticRegistrationOptions)
-> (StaticRegistrationOptions
    -> StaticRegistrationOptions -> StaticRegistrationOptions)
-> Ord StaticRegistrationOptions
StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
StaticRegistrationOptions -> StaticRegistrationOptions -> Ordering
StaticRegistrationOptions
-> StaticRegistrationOptions -> StaticRegistrationOptions
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 :: StaticRegistrationOptions -> StaticRegistrationOptions -> Ordering
compare :: StaticRegistrationOptions -> StaticRegistrationOptions -> Ordering
$c< :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
< :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
$c<= :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
<= :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
$c> :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
> :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
$c>= :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
>= :: StaticRegistrationOptions -> StaticRegistrationOptions -> Bool
$cmax :: StaticRegistrationOptions
-> StaticRegistrationOptions -> StaticRegistrationOptions
max :: StaticRegistrationOptions
-> StaticRegistrationOptions -> StaticRegistrationOptions
$cmin :: StaticRegistrationOptions
-> StaticRegistrationOptions -> StaticRegistrationOptions
min :: StaticRegistrationOptions
-> StaticRegistrationOptions -> StaticRegistrationOptions
Ord, (forall x.
 StaticRegistrationOptions -> Rep StaticRegistrationOptions x)
-> (forall x.
    Rep StaticRegistrationOptions x -> StaticRegistrationOptions)
-> Generic StaticRegistrationOptions
forall x.
Rep StaticRegistrationOptions x -> StaticRegistrationOptions
forall x.
StaticRegistrationOptions -> Rep StaticRegistrationOptions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
StaticRegistrationOptions -> Rep StaticRegistrationOptions x
from :: forall x.
StaticRegistrationOptions -> Rep StaticRegistrationOptions x
$cto :: forall x.
Rep StaticRegistrationOptions x -> StaticRegistrationOptions
to :: forall x.
Rep StaticRegistrationOptions x -> StaticRegistrationOptions
Generic)
  deriving anyclass (StaticRegistrationOptions -> ()
(StaticRegistrationOptions -> ())
-> NFData StaticRegistrationOptions
forall a. (a -> ()) -> NFData a
$crnf :: StaticRegistrationOptions -> ()
rnf :: StaticRegistrationOptions -> ()
NFData, Eq StaticRegistrationOptions
Eq StaticRegistrationOptions =>
(Int -> StaticRegistrationOptions -> Int)
-> (StaticRegistrationOptions -> Int)
-> Hashable StaticRegistrationOptions
Int -> StaticRegistrationOptions -> Int
StaticRegistrationOptions -> Int
forall a. Eq a => (Int -> a -> Int) -> (a -> Int) -> Hashable a
$chashWithSalt :: Int -> StaticRegistrationOptions -> Int
hashWithSalt :: Int -> StaticRegistrationOptions -> Int
$chash :: StaticRegistrationOptions -> Int
hash :: StaticRegistrationOptions -> Int
Hashable)
  deriving (forall ann. StaticRegistrationOptions -> Doc ann)
-> (forall ann. [StaticRegistrationOptions] -> Doc ann)
-> Pretty StaticRegistrationOptions
forall ann. [StaticRegistrationOptions] -> Doc ann
forall ann. StaticRegistrationOptions -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
$cpretty :: forall ann. StaticRegistrationOptions -> Doc ann
pretty :: forall ann. StaticRegistrationOptions -> Doc ann
$cprettyList :: forall ann. [StaticRegistrationOptions] -> Doc ann
prettyList :: forall ann. [StaticRegistrationOptions] -> Doc ann
Pretty via (ViaJSON StaticRegistrationOptions)

instance Aeson.ToJSON StaticRegistrationOptions where
  toJSON :: StaticRegistrationOptions -> Value
toJSON (StaticRegistrationOptions Maybe Text
arg0) = [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
$  [String
"id" String -> Maybe Text -> [Pair]
forall e kv v.
(KeyValue e kv, ToJSON v) =>
String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe Text
arg0]

instance Aeson.FromJSON StaticRegistrationOptions where
  parseJSON :: Value -> Parser StaticRegistrationOptions
parseJSON = String
-> (Object -> Parser StaticRegistrationOptions)
-> Value
-> Parser StaticRegistrationOptions
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"StaticRegistrationOptions" ((Object -> Parser StaticRegistrationOptions)
 -> Value -> Parser StaticRegistrationOptions)
-> (Object -> Parser StaticRegistrationOptions)
-> Value
-> Parser StaticRegistrationOptions
forall a b. (a -> b) -> a -> b
$ \Object
arg -> Maybe Text -> StaticRegistrationOptions
StaticRegistrationOptions (Maybe Text -> StaticRegistrationOptions)
-> Parser (Maybe Text) -> Parser StaticRegistrationOptions
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
arg Object -> Key -> Parser (Maybe Text)
forall v. FromJSON v => Object -> Key -> Parser (Maybe v)
Language.LSP.Protocol.Types.Common..:!? Key
"id"