{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE TemplateHaskell       #-}
module Language.LSP.Types.WorkspaceFolders where

import           Data.Aeson.TH
import           Data.Text                      ( Text )

import           Language.LSP.Types.Common
import           Language.LSP.Types.Utils

data WorkspaceFolder =
  WorkspaceFolder
    { -- | The URI of the workspace folder.
      WorkspaceFolder -> Text
_uri  :: Text
    -- | The name of the workspace folder. Defaults to the uri's basename.
    , WorkspaceFolder -> Text
_name :: Text
    } deriving (ReadPrec [WorkspaceFolder]
ReadPrec WorkspaceFolder
Int -> ReadS WorkspaceFolder
ReadS [WorkspaceFolder]
(Int -> ReadS WorkspaceFolder)
-> ReadS [WorkspaceFolder]
-> ReadPrec WorkspaceFolder
-> ReadPrec [WorkspaceFolder]
-> Read WorkspaceFolder
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS WorkspaceFolder
readsPrec :: Int -> ReadS WorkspaceFolder
$creadList :: ReadS [WorkspaceFolder]
readList :: ReadS [WorkspaceFolder]
$creadPrec :: ReadPrec WorkspaceFolder
readPrec :: ReadPrec WorkspaceFolder
$creadListPrec :: ReadPrec [WorkspaceFolder]
readListPrec :: ReadPrec [WorkspaceFolder]
Read, Int -> WorkspaceFolder -> ShowS
[WorkspaceFolder] -> ShowS
WorkspaceFolder -> String
(Int -> WorkspaceFolder -> ShowS)
-> (WorkspaceFolder -> String)
-> ([WorkspaceFolder] -> ShowS)
-> Show WorkspaceFolder
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WorkspaceFolder -> ShowS
showsPrec :: Int -> WorkspaceFolder -> ShowS
$cshow :: WorkspaceFolder -> String
show :: WorkspaceFolder -> String
$cshowList :: [WorkspaceFolder] -> ShowS
showList :: [WorkspaceFolder] -> ShowS
Show, WorkspaceFolder -> WorkspaceFolder -> Bool
(WorkspaceFolder -> WorkspaceFolder -> Bool)
-> (WorkspaceFolder -> WorkspaceFolder -> Bool)
-> Eq WorkspaceFolder
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkspaceFolder -> WorkspaceFolder -> Bool
== :: WorkspaceFolder -> WorkspaceFolder -> Bool
$c/= :: WorkspaceFolder -> WorkspaceFolder -> Bool
/= :: WorkspaceFolder -> WorkspaceFolder -> Bool
Eq)

deriveJSON lspOptions ''WorkspaceFolder

-- | The workspace folder change event.
data WorkspaceFoldersChangeEvent =
  WorkspaceFoldersChangeEvent
    { WorkspaceFoldersChangeEvent -> List WorkspaceFolder
_added :: List WorkspaceFolder -- ^ The array of added workspace folders
    , WorkspaceFoldersChangeEvent -> List WorkspaceFolder
_removed :: List WorkspaceFolder -- ^ The array of the removed workspace folders
    } deriving (ReadPrec [WorkspaceFoldersChangeEvent]
ReadPrec WorkspaceFoldersChangeEvent
Int -> ReadS WorkspaceFoldersChangeEvent
ReadS [WorkspaceFoldersChangeEvent]
(Int -> ReadS WorkspaceFoldersChangeEvent)
-> ReadS [WorkspaceFoldersChangeEvent]
-> ReadPrec WorkspaceFoldersChangeEvent
-> ReadPrec [WorkspaceFoldersChangeEvent]
-> Read WorkspaceFoldersChangeEvent
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS WorkspaceFoldersChangeEvent
readsPrec :: Int -> ReadS WorkspaceFoldersChangeEvent
$creadList :: ReadS [WorkspaceFoldersChangeEvent]
readList :: ReadS [WorkspaceFoldersChangeEvent]
$creadPrec :: ReadPrec WorkspaceFoldersChangeEvent
readPrec :: ReadPrec WorkspaceFoldersChangeEvent
$creadListPrec :: ReadPrec [WorkspaceFoldersChangeEvent]
readListPrec :: ReadPrec [WorkspaceFoldersChangeEvent]
Read, Int -> WorkspaceFoldersChangeEvent -> ShowS
[WorkspaceFoldersChangeEvent] -> ShowS
WorkspaceFoldersChangeEvent -> String
(Int -> WorkspaceFoldersChangeEvent -> ShowS)
-> (WorkspaceFoldersChangeEvent -> String)
-> ([WorkspaceFoldersChangeEvent] -> ShowS)
-> Show WorkspaceFoldersChangeEvent
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WorkspaceFoldersChangeEvent -> ShowS
showsPrec :: Int -> WorkspaceFoldersChangeEvent -> ShowS
$cshow :: WorkspaceFoldersChangeEvent -> String
show :: WorkspaceFoldersChangeEvent -> String
$cshowList :: [WorkspaceFoldersChangeEvent] -> ShowS
showList :: [WorkspaceFoldersChangeEvent] -> ShowS
Show, WorkspaceFoldersChangeEvent -> WorkspaceFoldersChangeEvent -> Bool
(WorkspaceFoldersChangeEvent
 -> WorkspaceFoldersChangeEvent -> Bool)
-> (WorkspaceFoldersChangeEvent
    -> WorkspaceFoldersChangeEvent -> Bool)
-> Eq WorkspaceFoldersChangeEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkspaceFoldersChangeEvent -> WorkspaceFoldersChangeEvent -> Bool
== :: WorkspaceFoldersChangeEvent -> WorkspaceFoldersChangeEvent -> Bool
$c/= :: WorkspaceFoldersChangeEvent -> WorkspaceFoldersChangeEvent -> Bool
/= :: WorkspaceFoldersChangeEvent -> WorkspaceFoldersChangeEvent -> Bool
Eq)

deriveJSON lspOptions ''WorkspaceFoldersChangeEvent

data DidChangeWorkspaceFoldersParams = 
  DidChangeWorkspaceFoldersParams
    { DidChangeWorkspaceFoldersParams -> WorkspaceFoldersChangeEvent
_event :: WorkspaceFoldersChangeEvent
      -- ^ The actual workspace folder change event.
    } deriving (ReadPrec [DidChangeWorkspaceFoldersParams]
ReadPrec DidChangeWorkspaceFoldersParams
Int -> ReadS DidChangeWorkspaceFoldersParams
ReadS [DidChangeWorkspaceFoldersParams]
(Int -> ReadS DidChangeWorkspaceFoldersParams)
-> ReadS [DidChangeWorkspaceFoldersParams]
-> ReadPrec DidChangeWorkspaceFoldersParams
-> ReadPrec [DidChangeWorkspaceFoldersParams]
-> Read DidChangeWorkspaceFoldersParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS DidChangeWorkspaceFoldersParams
readsPrec :: Int -> ReadS DidChangeWorkspaceFoldersParams
$creadList :: ReadS [DidChangeWorkspaceFoldersParams]
readList :: ReadS [DidChangeWorkspaceFoldersParams]
$creadPrec :: ReadPrec DidChangeWorkspaceFoldersParams
readPrec :: ReadPrec DidChangeWorkspaceFoldersParams
$creadListPrec :: ReadPrec [DidChangeWorkspaceFoldersParams]
readListPrec :: ReadPrec [DidChangeWorkspaceFoldersParams]
Read, Int -> DidChangeWorkspaceFoldersParams -> ShowS
[DidChangeWorkspaceFoldersParams] -> ShowS
DidChangeWorkspaceFoldersParams -> String
(Int -> DidChangeWorkspaceFoldersParams -> ShowS)
-> (DidChangeWorkspaceFoldersParams -> String)
-> ([DidChangeWorkspaceFoldersParams] -> ShowS)
-> Show DidChangeWorkspaceFoldersParams
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DidChangeWorkspaceFoldersParams -> ShowS
showsPrec :: Int -> DidChangeWorkspaceFoldersParams -> ShowS
$cshow :: DidChangeWorkspaceFoldersParams -> String
show :: DidChangeWorkspaceFoldersParams -> String
$cshowList :: [DidChangeWorkspaceFoldersParams] -> ShowS
showList :: [DidChangeWorkspaceFoldersParams] -> ShowS
Show, DidChangeWorkspaceFoldersParams
-> DidChangeWorkspaceFoldersParams -> Bool
(DidChangeWorkspaceFoldersParams
 -> DidChangeWorkspaceFoldersParams -> Bool)
-> (DidChangeWorkspaceFoldersParams
    -> DidChangeWorkspaceFoldersParams -> Bool)
-> Eq DidChangeWorkspaceFoldersParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DidChangeWorkspaceFoldersParams
-> DidChangeWorkspaceFoldersParams -> Bool
== :: DidChangeWorkspaceFoldersParams
-> DidChangeWorkspaceFoldersParams -> Bool
$c/= :: DidChangeWorkspaceFoldersParams
-> DidChangeWorkspaceFoldersParams -> Bool
/= :: DidChangeWorkspaceFoldersParams
-> DidChangeWorkspaceFoldersParams -> Bool
Eq)

deriveJSON lspOptions ''DidChangeWorkspaceFoldersParams