{- 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.FileOperationPattern 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.Internal.Types.FileOperationPatternKind
import qualified Language.LSP.Protocol.Internal.Types.FileOperationPatternOptions
import qualified Language.LSP.Protocol.Types.Common

{-|
A pattern to describe in which file operation requests or notifications
the server is interested in receiving.

@since 3.16.0
-}
data FileOperationPattern = FileOperationPattern 
  { {-|
  The glob pattern to match. Glob patterns can have the following syntax:
  - `*` to match one or more characters in a path segment
  - `?` to match on one character in a path segment
  - `**` to match any number of path segments, including none
  - `{}` to group sub patterns into an OR expression. (e.g. `**​/*.{ts,js}` matches all TypeScript and JavaScript files)
  - `[]` to declare a range of characters to match in a path segment (e.g., `example.[0-9]` to match on `example.0`, `example.1`, …)
  - `[!...]` to negate a range of characters to match in a path segment (e.g., `example.[!0-9]` to match on `example.a`, `example.b`, but not `example.0`)
  -}
  FileOperationPattern -> Text
_glob :: Data.Text.Text
  , {-|
  Whether to match files or folders with this pattern.

  Matches both if undefined.
  -}
  FileOperationPattern -> Maybe FileOperationPatternKind
_matches :: (Maybe Language.LSP.Protocol.Internal.Types.FileOperationPatternKind.FileOperationPatternKind)
  , {-|
  Additional options used during matching.
  -}
  FileOperationPattern -> Maybe FileOperationPatternOptions
_options :: (Maybe Language.LSP.Protocol.Internal.Types.FileOperationPatternOptions.FileOperationPatternOptions)
  }
  deriving stock (Int -> FileOperationPattern -> ShowS
[FileOperationPattern] -> ShowS
FileOperationPattern -> String
(Int -> FileOperationPattern -> ShowS)
-> (FileOperationPattern -> String)
-> ([FileOperationPattern] -> ShowS)
-> Show FileOperationPattern
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> FileOperationPattern -> ShowS
showsPrec :: Int -> FileOperationPattern -> ShowS
$cshow :: FileOperationPattern -> String
show :: FileOperationPattern -> String
$cshowList :: [FileOperationPattern] -> ShowS
showList :: [FileOperationPattern] -> ShowS
Show, FileOperationPattern -> FileOperationPattern -> Bool
(FileOperationPattern -> FileOperationPattern -> Bool)
-> (FileOperationPattern -> FileOperationPattern -> Bool)
-> Eq FileOperationPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FileOperationPattern -> FileOperationPattern -> Bool
== :: FileOperationPattern -> FileOperationPattern -> Bool
$c/= :: FileOperationPattern -> FileOperationPattern -> Bool
/= :: FileOperationPattern -> FileOperationPattern -> Bool
Eq, Eq FileOperationPattern
Eq FileOperationPattern =>
(FileOperationPattern -> FileOperationPattern -> Ordering)
-> (FileOperationPattern -> FileOperationPattern -> Bool)
-> (FileOperationPattern -> FileOperationPattern -> Bool)
-> (FileOperationPattern -> FileOperationPattern -> Bool)
-> (FileOperationPattern -> FileOperationPattern -> Bool)
-> (FileOperationPattern
    -> FileOperationPattern -> FileOperationPattern)
-> (FileOperationPattern
    -> FileOperationPattern -> FileOperationPattern)
-> Ord FileOperationPattern
FileOperationPattern -> FileOperationPattern -> Bool
FileOperationPattern -> FileOperationPattern -> Ordering
FileOperationPattern
-> FileOperationPattern -> FileOperationPattern
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 :: FileOperationPattern -> FileOperationPattern -> Ordering
compare :: FileOperationPattern -> FileOperationPattern -> Ordering
$c< :: FileOperationPattern -> FileOperationPattern -> Bool
< :: FileOperationPattern -> FileOperationPattern -> Bool
$c<= :: FileOperationPattern -> FileOperationPattern -> Bool
<= :: FileOperationPattern -> FileOperationPattern -> Bool
$c> :: FileOperationPattern -> FileOperationPattern -> Bool
> :: FileOperationPattern -> FileOperationPattern -> Bool
$c>= :: FileOperationPattern -> FileOperationPattern -> Bool
>= :: FileOperationPattern -> FileOperationPattern -> Bool
$cmax :: FileOperationPattern
-> FileOperationPattern -> FileOperationPattern
max :: FileOperationPattern
-> FileOperationPattern -> FileOperationPattern
$cmin :: FileOperationPattern
-> FileOperationPattern -> FileOperationPattern
min :: FileOperationPattern
-> FileOperationPattern -> FileOperationPattern
Ord, (forall x. FileOperationPattern -> Rep FileOperationPattern x)
-> (forall x. Rep FileOperationPattern x -> FileOperationPattern)
-> Generic FileOperationPattern
forall x. Rep FileOperationPattern x -> FileOperationPattern
forall x. FileOperationPattern -> Rep FileOperationPattern x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. FileOperationPattern -> Rep FileOperationPattern x
from :: forall x. FileOperationPattern -> Rep FileOperationPattern x
$cto :: forall x. Rep FileOperationPattern x -> FileOperationPattern
to :: forall x. Rep FileOperationPattern x -> FileOperationPattern
Generic)
  deriving anyclass (FileOperationPattern -> ()
(FileOperationPattern -> ()) -> NFData FileOperationPattern
forall a. (a -> ()) -> NFData a
$crnf :: FileOperationPattern -> ()
rnf :: FileOperationPattern -> ()
NFData, Eq FileOperationPattern
Eq FileOperationPattern =>
(Int -> FileOperationPattern -> Int)
-> (FileOperationPattern -> Int) -> Hashable FileOperationPattern
Int -> FileOperationPattern -> Int
FileOperationPattern -> Int
forall a. Eq a => (Int -> a -> Int) -> (a -> Int) -> Hashable a
$chashWithSalt :: Int -> FileOperationPattern -> Int
hashWithSalt :: Int -> FileOperationPattern -> Int
$chash :: FileOperationPattern -> Int
hash :: FileOperationPattern -> Int
Hashable)
  deriving (forall ann. FileOperationPattern -> Doc ann)
-> (forall ann. [FileOperationPattern] -> Doc ann)
-> Pretty FileOperationPattern
forall ann. [FileOperationPattern] -> Doc ann
forall ann. FileOperationPattern -> Doc ann
forall a.
(forall ann. a -> Doc ann)
-> (forall ann. [a] -> Doc ann) -> Pretty a
$cpretty :: forall ann. FileOperationPattern -> Doc ann
pretty :: forall ann. FileOperationPattern -> Doc ann
$cprettyList :: forall ann. [FileOperationPattern] -> Doc ann
prettyList :: forall ann. [FileOperationPattern] -> Doc ann
Pretty via (ViaJSON FileOperationPattern)

instance Aeson.ToJSON FileOperationPattern where
  toJSON :: FileOperationPattern -> Value
toJSON (FileOperationPattern Text
arg0 Maybe FileOperationPatternKind
arg1 Maybe FileOperationPatternOptions
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
"glob" Key -> Text -> Pair
forall v. ToJSON v => Key -> v -> Pair
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
Aeson..= Text
arg0]
    ,String
"matches" String -> Maybe FileOperationPatternKind -> [Pair]
forall e kv v.
(KeyValue e kv, ToJSON v) =>
String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe FileOperationPatternKind
arg1
    ,String
"options" String -> Maybe FileOperationPatternOptions -> [Pair]
forall e kv v.
(KeyValue e kv, ToJSON v) =>
String -> Maybe v -> [kv]
Language.LSP.Protocol.Types.Common..=? Maybe FileOperationPatternOptions
arg2]

instance Aeson.FromJSON FileOperationPattern where
  parseJSON :: Value -> Parser FileOperationPattern
parseJSON = String
-> (Object -> Parser FileOperationPattern)
-> Value
-> Parser FileOperationPattern
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Aeson.withObject String
"FileOperationPattern" ((Object -> Parser FileOperationPattern)
 -> Value -> Parser FileOperationPattern)
-> (Object -> Parser FileOperationPattern)
-> Value
-> Parser FileOperationPattern
forall a b. (a -> b) -> a -> b
$ \Object
arg -> Text
-> Maybe FileOperationPatternKind
-> Maybe FileOperationPatternOptions
-> FileOperationPattern
FileOperationPattern (Text
 -> Maybe FileOperationPatternKind
 -> Maybe FileOperationPatternOptions
 -> FileOperationPattern)
-> Parser Text
-> Parser
     (Maybe FileOperationPatternKind
      -> Maybe FileOperationPatternOptions -> FileOperationPattern)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
arg Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
Aeson..: Key
"glob" Parser
  (Maybe FileOperationPatternKind
   -> Maybe FileOperationPatternOptions -> FileOperationPattern)
-> Parser (Maybe FileOperationPatternKind)
-> Parser
     (Maybe FileOperationPatternOptions -> FileOperationPattern)
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 FileOperationPatternKind)
forall v. FromJSON v => Object -> Key -> Parser (Maybe v)
Language.LSP.Protocol.Types.Common..:!? Key
"matches" Parser (Maybe FileOperationPatternOptions -> FileOperationPattern)
-> Parser (Maybe FileOperationPatternOptions)
-> Parser FileOperationPattern
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 FileOperationPatternOptions)
forall v. FromJSON v => Object -> Key -> Parser (Maybe v)
Language.LSP.Protocol.Types.Common..:!? Key
"options"