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

{-|
Additional details for a completion item label.

@since 3.17.0
-}
data CompletionItemLabelDetails = CompletionItemLabelDetails 
  { {-|
  An optional string which is rendered less prominently directly after `CompletionItem.label`,
  without any spacing. Should be used for function signatures and type annotations.
  -}
  CompletionItemLabelDetails -> Maybe Text
_detail :: (Maybe Data.Text.Text)
  , {-|
  An optional string which is rendered less prominently after `CompletionItem.detail`. Should be used
  for fully qualified names and file paths.
  -}
  CompletionItemLabelDetails -> Maybe Text
_description :: (Maybe Data.Text.Text)
  }
  deriving stock (Int -> CompletionItemLabelDetails -> ShowS
[CompletionItemLabelDetails] -> ShowS
CompletionItemLabelDetails -> String
(Int -> CompletionItemLabelDetails -> ShowS)
-> (CompletionItemLabelDetails -> String)
-> ([CompletionItemLabelDetails] -> ShowS)
-> Show CompletionItemLabelDetails
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CompletionItemLabelDetails -> ShowS
showsPrec :: Int -> CompletionItemLabelDetails -> ShowS
$cshow :: CompletionItemLabelDetails -> String
show :: CompletionItemLabelDetails -> String
$cshowList :: [CompletionItemLabelDetails] -> ShowS
showList :: [CompletionItemLabelDetails] -> ShowS
Show, CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
(CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool)
-> (CompletionItemLabelDetails
    -> CompletionItemLabelDetails -> Bool)
-> Eq CompletionItemLabelDetails
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
== :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
$c/= :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
/= :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
Eq, Eq CompletionItemLabelDetails
Eq CompletionItemLabelDetails =>
(CompletionItemLabelDetails
 -> CompletionItemLabelDetails -> Ordering)
-> (CompletionItemLabelDetails
    -> CompletionItemLabelDetails -> Bool)
-> (CompletionItemLabelDetails
    -> CompletionItemLabelDetails -> Bool)
-> (CompletionItemLabelDetails
    -> CompletionItemLabelDetails -> Bool)
-> (CompletionItemLabelDetails
    -> CompletionItemLabelDetails -> Bool)
-> (CompletionItemLabelDetails
    -> CompletionItemLabelDetails -> CompletionItemLabelDetails)
-> (CompletionItemLabelDetails
    -> CompletionItemLabelDetails -> CompletionItemLabelDetails)
-> Ord CompletionItemLabelDetails
CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
CompletionItemLabelDetails
-> CompletionItemLabelDetails -> Ordering
CompletionItemLabelDetails
-> CompletionItemLabelDetails -> CompletionItemLabelDetails
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 :: CompletionItemLabelDetails
-> CompletionItemLabelDetails -> Ordering
compare :: CompletionItemLabelDetails
-> CompletionItemLabelDetails -> Ordering
$c< :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
< :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
$c<= :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
<= :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
$c> :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
> :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
$c>= :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
>= :: CompletionItemLabelDetails -> CompletionItemLabelDetails -> Bool
$cmax :: CompletionItemLabelDetails
-> CompletionItemLabelDetails -> CompletionItemLabelDetails
max :: CompletionItemLabelDetails
-> CompletionItemLabelDetails -> CompletionItemLabelDetails
$cmin :: CompletionItemLabelDetails
-> CompletionItemLabelDetails -> CompletionItemLabelDetails
min :: CompletionItemLabelDetails
-> CompletionItemLabelDetails -> CompletionItemLabelDetails
Ord, (forall x.
 CompletionItemLabelDetails -> Rep CompletionItemLabelDetails x)
-> (forall x.
    Rep CompletionItemLabelDetails x -> CompletionItemLabelDetails)
-> Generic CompletionItemLabelDetails
forall x.
Rep CompletionItemLabelDetails x -> CompletionItemLabelDetails
forall x.
CompletionItemLabelDetails -> Rep CompletionItemLabelDetails x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
CompletionItemLabelDetails -> Rep CompletionItemLabelDetails x
from :: forall x.
CompletionItemLabelDetails -> Rep CompletionItemLabelDetails x
$cto :: forall x.
Rep CompletionItemLabelDetails x -> CompletionItemLabelDetails
to :: forall x.
Rep CompletionItemLabelDetails x -> CompletionItemLabelDetails
Generic)
  deriving anyclass (CompletionItemLabelDetails -> ()
(CompletionItemLabelDetails -> ())
-> NFData CompletionItemLabelDetails
forall a. (a -> ()) -> NFData a
$crnf :: CompletionItemLabelDetails -> ()
rnf :: CompletionItemLabelDetails -> ()
NFData, Eq CompletionItemLabelDetails
Eq CompletionItemLabelDetails =>
(Int -> CompletionItemLabelDetails -> Int)
-> (CompletionItemLabelDetails -> Int)
-> Hashable CompletionItemLabelDetails
Int -> CompletionItemLabelDetails -> Int
CompletionItemLabelDetails -> Int
forall a. Eq a => (Int -> a -> Int) -> (a -> Int) -> Hashable a
$chashWithSalt :: Int -> CompletionItemLabelDetails -> Int
hashWithSalt :: Int -> CompletionItemLabelDetails -> Int
$chash :: CompletionItemLabelDetails -> Int
hash :: CompletionItemLabelDetails -> Int
Hashable)
  deriving (forall ann. CompletionItemLabelDetails -> Doc ann)
-> (forall ann. [CompletionItemLabelDetails] -> Doc ann)
-> Pretty CompletionItemLabelDetails
forall ann. [CompletionItemLabelDetails] -> Doc ann
forall ann. CompletionItemLabelDetails -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
$cpretty :: forall ann. CompletionItemLabelDetails -> Doc ann
pretty :: forall ann. CompletionItemLabelDetails -> Doc ann
$cprettyList :: forall ann. [CompletionItemLabelDetails] -> Doc ann
prettyList :: forall ann. [CompletionItemLabelDetails] -> Doc ann
Pretty via (ViaJSON CompletionItemLabelDetails)

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

instance Aeson.FromJSON CompletionItemLabelDetails where
  parseJSON :: Value -> Parser CompletionItemLabelDetails
parseJSON = String
-> (Object -> Parser CompletionItemLabelDetails)
-> Value
-> Parser CompletionItemLabelDetails
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"CompletionItemLabelDetails" ((Object -> Parser CompletionItemLabelDetails)
 -> Value -> Parser CompletionItemLabelDetails)
-> (Object -> Parser CompletionItemLabelDetails)
-> Value
-> Parser CompletionItemLabelDetails
forall a b. (a -> b) -> a -> b
$ \Object
arg -> Maybe Text -> Maybe Text -> CompletionItemLabelDetails
CompletionItemLabelDetails (Maybe Text -> Maybe Text -> CompletionItemLabelDetails)
-> Parser (Maybe Text)
-> Parser (Maybe Text -> CompletionItemLabelDetails)
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
"detail" Parser (Maybe Text -> CompletionItemLabelDetails)
-> Parser (Maybe Text) -> Parser CompletionItemLabelDetails
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => 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
"description"