{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-deprecations #-}
module Language.LSP.Protocol.Internal.Types.SignatureHelp 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 Language.LSP.Protocol.Internal.Types.SignatureInformation
import qualified Language.LSP.Protocol.Types.Common
data SignatureHelp = SignatureHelp
{
SignatureHelp -> [SignatureInformation]
_signatures :: [Language.LSP.Protocol.Internal.Types.SignatureInformation.SignatureInformation]
,
SignatureHelp -> Maybe UInt
_activeSignature :: (Maybe Language.LSP.Protocol.Types.Common.UInt)
,
SignatureHelp -> Maybe UInt
_activeParameter :: (Maybe Language.LSP.Protocol.Types.Common.UInt)
}
deriving stock (Int -> SignatureHelp -> ShowS
[SignatureHelp] -> ShowS
SignatureHelp -> String
(Int -> SignatureHelp -> ShowS)
-> (SignatureHelp -> String)
-> ([SignatureHelp] -> ShowS)
-> Show SignatureHelp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SignatureHelp -> ShowS
showsPrec :: Int -> SignatureHelp -> ShowS
$cshow :: SignatureHelp -> String
show :: SignatureHelp -> String
$cshowList :: [SignatureHelp] -> ShowS
showList :: [SignatureHelp] -> ShowS
Show, SignatureHelp -> SignatureHelp -> Bool
(SignatureHelp -> SignatureHelp -> Bool)
-> (SignatureHelp -> SignatureHelp -> Bool) -> Eq SignatureHelp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SignatureHelp -> SignatureHelp -> Bool
== :: SignatureHelp -> SignatureHelp -> Bool
$c/= :: SignatureHelp -> SignatureHelp -> Bool
/= :: SignatureHelp -> SignatureHelp -> Bool
Eq, Eq SignatureHelp
Eq SignatureHelp =>
(SignatureHelp -> SignatureHelp -> Ordering)
-> (SignatureHelp -> SignatureHelp -> Bool)
-> (SignatureHelp -> SignatureHelp -> Bool)
-> (SignatureHelp -> SignatureHelp -> Bool)
-> (SignatureHelp -> SignatureHelp -> Bool)
-> (SignatureHelp -> SignatureHelp -> SignatureHelp)
-> (SignatureHelp -> SignatureHelp -> SignatureHelp)
-> Ord SignatureHelp
SignatureHelp -> SignatureHelp -> Bool
SignatureHelp -> SignatureHelp -> Ordering
SignatureHelp -> SignatureHelp -> SignatureHelp
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 :: SignatureHelp -> SignatureHelp -> Ordering
compare :: SignatureHelp -> SignatureHelp -> Ordering
$c< :: SignatureHelp -> SignatureHelp -> Bool
< :: SignatureHelp -> SignatureHelp -> Bool
$c<= :: SignatureHelp -> SignatureHelp -> Bool
<= :: SignatureHelp -> SignatureHelp -> Bool
$c> :: SignatureHelp -> SignatureHelp -> Bool
> :: SignatureHelp -> SignatureHelp -> Bool
$c>= :: SignatureHelp -> SignatureHelp -> Bool
>= :: SignatureHelp -> SignatureHelp -> Bool
$cmax :: SignatureHelp -> SignatureHelp -> SignatureHelp
max :: SignatureHelp -> SignatureHelp -> SignatureHelp
$cmin :: SignatureHelp -> SignatureHelp -> SignatureHelp
min :: SignatureHelp -> SignatureHelp -> SignatureHelp
Ord, (forall x. SignatureHelp -> Rep SignatureHelp x)
-> (forall x. Rep SignatureHelp x -> SignatureHelp)
-> Generic SignatureHelp
forall x. Rep SignatureHelp x -> SignatureHelp
forall x. SignatureHelp -> Rep SignatureHelp x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. SignatureHelp -> Rep SignatureHelp x
from :: forall x. SignatureHelp -> Rep SignatureHelp x
$cto :: forall x. Rep SignatureHelp x -> SignatureHelp
to :: forall x. Rep SignatureHelp x -> SignatureHelp
Generic)
deriving anyclass (SignatureHelp -> ()
(SignatureHelp -> ()) -> NFData SignatureHelp
forall a. (a -> ()) -> NFData a
$crnf :: SignatureHelp -> ()
rnf :: SignatureHelp -> ()
NFData, Eq SignatureHelp
Eq SignatureHelp =>
(Int -> SignatureHelp -> Int)
-> (SignatureHelp -> Int) -> Hashable SignatureHelp
Int -> SignatureHelp -> Int
SignatureHelp -> Int
forall a. Eq a => (Int -> a -> Int) -> (a -> Int) -> Hashable a
$chashWithSalt :: Int -> SignatureHelp -> Int
hashWithSalt :: Int -> SignatureHelp -> Int
$chash :: SignatureHelp -> Int
hash :: SignatureHelp -> Int
Hashable)
deriving (forall ann. SignatureHelp -> Doc ann)
-> (forall ann. [SignatureHelp] -> Doc ann) -> Pretty SignatureHelp
forall ann. [SignatureHelp] -> Doc ann
forall ann. SignatureHelp -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
$cpretty :: forall ann. SignatureHelp -> Doc ann
pretty :: forall ann. SignatureHelp -> Doc ann
$cprettyList :: forall ann. [SignatureHelp] -> Doc ann
prettyList :: forall ann. [SignatureHelp] -> Doc ann
Pretty via (ViaJSON SignatureHelp)
instance Aeson.ToJSON SignatureHelp where
toJSON :: SignatureHelp -> Value
toJSON (SignatureHelp [SignatureInformation]
arg0 Maybe UInt
arg1 Maybe UInt
arg2) = [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
$ [[Key
"signatures" Key -> [SignatureInformation] -> Pair
forall v. ToJSON v => Key -> v -> Pair
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
Aeson..= [SignatureInformation]
arg0]
,String
"activeSignature" String -> Maybe UInt -> [Pair]
forall e kv v.
(KeyValue e kv, ToJSON v) =>
String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe UInt
arg1
,String
"activeParameter" String -> Maybe UInt -> [Pair]
forall e kv v.
(KeyValue e kv, ToJSON v) =>
String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe UInt
arg2]
instance Aeson.FromJSON SignatureHelp where
parseJSON :: Value -> Parser SignatureHelp
parseJSON = String
-> (Object -> Parser SignatureHelp)
-> Value
-> Parser SignatureHelp
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"SignatureHelp" ((Object -> Parser SignatureHelp) -> Value -> Parser SignatureHelp)
-> (Object -> Parser SignatureHelp)
-> Value
-> Parser SignatureHelp
forall a b. (a -> b) -> a -> b
$ \Object
arg -> [SignatureInformation] -> Maybe UInt -> Maybe UInt -> SignatureHelp
SignatureHelp ([SignatureInformation]
-> Maybe UInt -> Maybe UInt -> SignatureHelp)
-> Parser [SignatureInformation]
-> Parser (Maybe UInt -> Maybe UInt -> SignatureHelp)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
arg Object -> Key -> Parser [SignatureInformation]
forall a. FromJSON a => Object -> Key -> Parser a
Aeson..: Key
"signatures" Parser (Maybe UInt -> Maybe UInt -> SignatureHelp)
-> Parser (Maybe UInt) -> Parser (Maybe UInt -> SignatureHelp)
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 UInt)
forall v. FromJSON v => Object -> Key -> Parser (Maybe v)
Language.LSP.Protocol.Types.Common..:!? Key
"activeSignature" Parser (Maybe UInt -> SignatureHelp)
-> Parser (Maybe UInt) -> Parser SignatureHelp
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 UInt)
forall v. FromJSON v => Object -> Key -> Parser (Maybe v)
Language.LSP.Protocol.Types.Common..:!? Key
"activeParameter"