{- 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.InlineValue 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.InlineValueEvaluatableExpression
import qualified Language.LSP.Protocol.Internal.Types.InlineValueText
import qualified Language.LSP.Protocol.Internal.Types.InlineValueVariableLookup
import qualified Language.LSP.Protocol.Types.Common

{-|
Inline value information can be provided by different means:
- directly as a text value (class InlineValueText).
- as a name to use for a variable lookup (class InlineValueVariableLookup)
- as an evaluatable expression (class InlineValueEvaluatableExpression)
The InlineValue types combines all inline value types into one type.

@since 3.17.0
-}
newtype InlineValue = InlineValue (Language.LSP.Protocol.Internal.Types.InlineValueText.InlineValueText Language.LSP.Protocol.Types.Common.|? (Language.LSP.Protocol.Internal.Types.InlineValueVariableLookup.InlineValueVariableLookup Language.LSP.Protocol.Types.Common.|? Language.LSP.Protocol.Internal.Types.InlineValueEvaluatableExpression.InlineValueEvaluatableExpression))
  deriving newtype ([InlineValue] -> Encoding
[InlineValue] -> Value
InlineValue -> Encoding
InlineValue -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [InlineValue] -> Encoding
$ctoEncodingList :: [InlineValue] -> Encoding
toJSONList :: [InlineValue] -> Value
$ctoJSONList :: [InlineValue] -> Value
toEncoding :: InlineValue -> Encoding
$ctoEncoding :: InlineValue -> Encoding
toJSON :: InlineValue -> Value
$ctoJSON :: InlineValue -> Value
Aeson.ToJSON, Value -> Parser [InlineValue]
Value -> Parser InlineValue
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [InlineValue]
$cparseJSONList :: Value -> Parser [InlineValue]
parseJSON :: Value -> Parser InlineValue
$cparseJSON :: Value -> Parser InlineValue
Aeson.FromJSON)
  deriving stock (Int -> InlineValue -> ShowS
[InlineValue] -> ShowS
InlineValue -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [InlineValue] -> ShowS
$cshowList :: [InlineValue] -> ShowS
show :: InlineValue -> String
$cshow :: InlineValue -> String
showsPrec :: Int -> InlineValue -> ShowS
$cshowsPrec :: Int -> InlineValue -> ShowS
Show, InlineValue -> InlineValue -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InlineValue -> InlineValue -> Bool
$c/= :: InlineValue -> InlineValue -> Bool
== :: InlineValue -> InlineValue -> Bool
$c== :: InlineValue -> InlineValue -> Bool
Eq, Eq InlineValue
InlineValue -> InlineValue -> Bool
InlineValue -> InlineValue -> Ordering
InlineValue -> InlineValue -> InlineValue
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
min :: InlineValue -> InlineValue -> InlineValue
$cmin :: InlineValue -> InlineValue -> InlineValue
max :: InlineValue -> InlineValue -> InlineValue
$cmax :: InlineValue -> InlineValue -> InlineValue
>= :: InlineValue -> InlineValue -> Bool
$c>= :: InlineValue -> InlineValue -> Bool
> :: InlineValue -> InlineValue -> Bool
$c> :: InlineValue -> InlineValue -> Bool
<= :: InlineValue -> InlineValue -> Bool
$c<= :: InlineValue -> InlineValue -> Bool
< :: InlineValue -> InlineValue -> Bool
$c< :: InlineValue -> InlineValue -> Bool
compare :: InlineValue -> InlineValue -> Ordering
$ccompare :: InlineValue -> InlineValue -> Ordering
Ord, forall x. Rep InlineValue x -> InlineValue
forall x. InlineValue -> Rep InlineValue x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep InlineValue x -> InlineValue
$cfrom :: forall x. InlineValue -> Rep InlineValue x
Generic)
  deriving anyclass (InlineValue -> ()
forall a. (a -> ()) -> NFData a
rnf :: InlineValue -> ()
$crnf :: InlineValue -> ()
NFData, Eq InlineValue
Int -> InlineValue -> Int
InlineValue -> Int
forall a. Eq a -> (Int -> a -> Int) -> (a -> Int) -> Hashable a
hash :: InlineValue -> Int
$chash :: InlineValue -> Int
hashWithSalt :: Int -> InlineValue -> Int
$chashWithSalt :: Int -> InlineValue -> Int
Hashable)
  deriving forall ann. [InlineValue] -> Doc ann
forall ann. InlineValue -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
prettyList :: forall ann. [InlineValue] -> Doc ann
$cprettyList :: forall ann. [InlineValue] -> Doc ann
pretty :: forall ann. InlineValue -> Doc ann
$cpretty :: forall ann. InlineValue -> Doc ann
Pretty via (ViaJSON InlineValue)