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

{-|
A document filter where `pattern` is required field.

@since 3.18.0
@proposed
-}
data TextDocumentFilterPattern = TextDocumentFilterPattern 
  { {-|
  A language id, like `typescript`.
  -}
  TextDocumentFilterPattern -> Maybe Text
_language :: (Maybe Data.Text.Text)
  , {-|
  A Uri `Uri.scheme`, like `file` or `untitled`.
  -}
  TextDocumentFilterPattern -> Maybe Text
_scheme :: (Maybe Data.Text.Text)
  , {-|
  A glob pattern, like **​/*.{ts,js}. See TextDocumentFilter for examples.
  -}
  TextDocumentFilterPattern -> Text
_pattern :: Data.Text.Text
  }
  deriving stock (Int -> TextDocumentFilterPattern -> ShowS
[TextDocumentFilterPattern] -> ShowS
TextDocumentFilterPattern -> String
(Int -> TextDocumentFilterPattern -> ShowS)
-> (TextDocumentFilterPattern -> String)
-> ([TextDocumentFilterPattern] -> ShowS)
-> Show TextDocumentFilterPattern
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TextDocumentFilterPattern -> ShowS
showsPrec :: Int -> TextDocumentFilterPattern -> ShowS
$cshow :: TextDocumentFilterPattern -> String
show :: TextDocumentFilterPattern -> String
$cshowList :: [TextDocumentFilterPattern] -> ShowS
showList :: [TextDocumentFilterPattern] -> ShowS
Show, TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
(TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool)
-> (TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool)
-> Eq TextDocumentFilterPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
== :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
$c/= :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
/= :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
Eq, Eq TextDocumentFilterPattern
Eq TextDocumentFilterPattern =>
(TextDocumentFilterPattern
 -> TextDocumentFilterPattern -> Ordering)
-> (TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool)
-> (TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool)
-> (TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool)
-> (TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool)
-> (TextDocumentFilterPattern
    -> TextDocumentFilterPattern -> TextDocumentFilterPattern)
-> (TextDocumentFilterPattern
    -> TextDocumentFilterPattern -> TextDocumentFilterPattern)
-> Ord TextDocumentFilterPattern
TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
TextDocumentFilterPattern -> TextDocumentFilterPattern -> Ordering
TextDocumentFilterPattern
-> TextDocumentFilterPattern -> TextDocumentFilterPattern
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 :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Ordering
compare :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Ordering
$c< :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
< :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
$c<= :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
<= :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
$c> :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
> :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
$c>= :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
>= :: TextDocumentFilterPattern -> TextDocumentFilterPattern -> Bool
$cmax :: TextDocumentFilterPattern
-> TextDocumentFilterPattern -> TextDocumentFilterPattern
max :: TextDocumentFilterPattern
-> TextDocumentFilterPattern -> TextDocumentFilterPattern
$cmin :: TextDocumentFilterPattern
-> TextDocumentFilterPattern -> TextDocumentFilterPattern
min :: TextDocumentFilterPattern
-> TextDocumentFilterPattern -> TextDocumentFilterPattern
Ord, (forall x.
 TextDocumentFilterPattern -> Rep TextDocumentFilterPattern x)
-> (forall x.
    Rep TextDocumentFilterPattern x -> TextDocumentFilterPattern)
-> Generic TextDocumentFilterPattern
forall x.
Rep TextDocumentFilterPattern x -> TextDocumentFilterPattern
forall x.
TextDocumentFilterPattern -> Rep TextDocumentFilterPattern x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
TextDocumentFilterPattern -> Rep TextDocumentFilterPattern x
from :: forall x.
TextDocumentFilterPattern -> Rep TextDocumentFilterPattern x
$cto :: forall x.
Rep TextDocumentFilterPattern x -> TextDocumentFilterPattern
to :: forall x.
Rep TextDocumentFilterPattern x -> TextDocumentFilterPattern
Generic)
  deriving anyclass (TextDocumentFilterPattern -> ()
(TextDocumentFilterPattern -> ())
-> NFData TextDocumentFilterPattern
forall a. (a -> ()) -> NFData a
$crnf :: TextDocumentFilterPattern -> ()
rnf :: TextDocumentFilterPattern -> ()
NFData, Eq TextDocumentFilterPattern
Eq TextDocumentFilterPattern =>
(Int -> TextDocumentFilterPattern -> Int)
-> (TextDocumentFilterPattern -> Int)
-> Hashable TextDocumentFilterPattern
Int -> TextDocumentFilterPattern -> Int
TextDocumentFilterPattern -> Int
forall a. Eq a => (Int -> a -> Int) -> (a -> Int) -> Hashable a
$chashWithSalt :: Int -> TextDocumentFilterPattern -> Int
hashWithSalt :: Int -> TextDocumentFilterPattern -> Int
$chash :: TextDocumentFilterPattern -> Int
hash :: TextDocumentFilterPattern -> Int
Hashable)
  deriving (forall ann. TextDocumentFilterPattern -> Doc ann)
-> (forall ann. [TextDocumentFilterPattern] -> Doc ann)
-> Pretty TextDocumentFilterPattern
forall ann. [TextDocumentFilterPattern] -> Doc ann
forall ann. TextDocumentFilterPattern -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
$cpretty :: forall ann. TextDocumentFilterPattern -> Doc ann
pretty :: forall ann. TextDocumentFilterPattern -> Doc ann
$cprettyList :: forall ann. [TextDocumentFilterPattern] -> Doc ann
prettyList :: forall ann. [TextDocumentFilterPattern] -> Doc ann
Pretty via (ViaJSON TextDocumentFilterPattern)

instance Aeson.ToJSON TextDocumentFilterPattern where
  toJSON :: TextDocumentFilterPattern -> Value
toJSON (TextDocumentFilterPattern Maybe Text
arg0 Maybe Text
arg1 Text
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
$  [String
"language" 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
"scheme" 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
    ,[Key
"pattern" Key -> Text -> Pair
forall v. ToJSON v => Key -> v -> Pair
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
Aeson..= Text
arg2]]

instance Aeson.FromJSON TextDocumentFilterPattern where
  parseJSON :: Value -> Parser TextDocumentFilterPattern
parseJSON = String
-> (Object -> Parser TextDocumentFilterPattern)
-> Value
-> Parser TextDocumentFilterPattern
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"TextDocumentFilterPattern" ((Object -> Parser TextDocumentFilterPattern)
 -> Value -> Parser TextDocumentFilterPattern)
-> (Object -> Parser TextDocumentFilterPattern)
-> Value
-> Parser TextDocumentFilterPattern
forall a b. (a -> b) -> a -> b
$ \Object
arg -> Maybe Text -> Maybe Text -> Text -> TextDocumentFilterPattern
TextDocumentFilterPattern (Maybe Text -> Maybe Text -> Text -> TextDocumentFilterPattern)
-> Parser (Maybe Text)
-> Parser (Maybe Text -> Text -> TextDocumentFilterPattern)
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
"language" Parser (Maybe Text -> Text -> TextDocumentFilterPattern)
-> Parser (Maybe Text)
-> Parser (Text -> TextDocumentFilterPattern)
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
"scheme" Parser (Text -> TextDocumentFilterPattern)
-> Parser Text -> Parser TextDocumentFilterPattern
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 Text
forall a. FromJSON a => Object -> Key -> Parser a
Aeson..: Key
"pattern"