{-# 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
data FileOperationPattern = FileOperationPattern
{
FileOperationPattern -> Text
_glob :: Data.Text.Text
,
FileOperationPattern -> Maybe FileOperationPatternKind
_matches :: (Maybe Language.LSP.Protocol.Internal.Types.FileOperationPatternKind.FileOperationPatternKind)
,
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"