{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedStrings #-}

module PMS.Domain.Model.DM.Type where

import Control.Lens
import Data.Aeson
import Data.Aeson.TH
import Control.Monad.Logger
import qualified Data.Text as T
import qualified Text.Read as R
import Control.Concurrent.STM.TQueue
import qualified Data.ByteString.Lazy.Char8 as BL
import Data.Default
import System.Exit
import System.IO 

import PMS.Domain.Model.DM.TH


--------------------------------------------------------------------------------
-- |
--
instance FromJSON LogLevel where
  parseJSON :: Value -> Parser LogLevel
parseJSON (String Text
v) = case String -> Either String LogLevel
forall a. Read a => String -> Either String a
R.readEither (String
"Level" String -> String -> String
forall a. [a] -> [a] -> [a]
++ Text -> String
T.unpack Text
v) of
    Right LogLevel
l -> LogLevel -> Parser LogLevel
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure LogLevel
l
    Left String
er -> String -> Parser LogLevel
forall a. HasCallStack => String -> a
error (String -> Parser LogLevel) -> String -> Parser LogLevel
forall a b. (a -> b) -> a -> b
$ String
"invalid loglevel. <" String -> String -> String
forall a. [a] -> [a] -> [a]
++ Text -> String
T.unpack Text
v String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"> " String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
er
  parseJSON Value
o = String -> Parser LogLevel
forall a. HasCallStack => String -> a
error (String -> Parser LogLevel) -> String -> Parser LogLevel
forall a b. (a -> b) -> a -> b
$ String
"json parse error. Priority:" String -> String -> String
forall a. [a] -> [a] -> [a]
++ Value -> String
forall a. Show a => a -> String
show Value
o

instance ToJSON LogLevel where
  toJSON :: LogLevel -> Value
toJSON  LogLevel
LevelDebug    = Text -> Value
String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ String -> Text
T.pack String
"Debug"
  toJSON  LogLevel
LevelInfo     = Text -> Value
String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ String -> Text
T.pack String
"Info"
  toJSON  LogLevel
LevelWarn     = Text -> Value
String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ String -> Text
T.pack String
"Warn"
  toJSON  LogLevel
LevelError    = Text -> Value
String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ String -> Text
T.pack String
"Error"
  toJSON (LevelOther Text
m) = Text -> Value
String Text
m

--------------------------------------------------------------------------------
-- |
--
newtype RawJsonString = RawJsonString { RawJsonString -> String
unRawJsonString :: String }
  deriving (Int -> RawJsonString -> String -> String
[RawJsonString] -> String -> String
RawJsonString -> String
(Int -> RawJsonString -> String -> String)
-> (RawJsonString -> String)
-> ([RawJsonString] -> String -> String)
-> Show RawJsonString
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> RawJsonString -> String -> String
showsPrec :: Int -> RawJsonString -> String -> String
$cshow :: RawJsonString -> String
show :: RawJsonString -> String
$cshowList :: [RawJsonString] -> String -> String
showList :: [RawJsonString] -> String -> String
Show, ReadPrec [RawJsonString]
ReadPrec RawJsonString
Int -> ReadS RawJsonString
ReadS [RawJsonString]
(Int -> ReadS RawJsonString)
-> ReadS [RawJsonString]
-> ReadPrec RawJsonString
-> ReadPrec [RawJsonString]
-> Read RawJsonString
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS RawJsonString
readsPrec :: Int -> ReadS RawJsonString
$creadList :: ReadS [RawJsonString]
readList :: ReadS [RawJsonString]
$creadPrec :: ReadPrec RawJsonString
readPrec :: ReadPrec RawJsonString
$creadListPrec :: ReadPrec [RawJsonString]
readListPrec :: ReadPrec [RawJsonString]
Read, RawJsonString -> RawJsonString -> Bool
(RawJsonString -> RawJsonString -> Bool)
-> (RawJsonString -> RawJsonString -> Bool) -> Eq RawJsonString
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RawJsonString -> RawJsonString -> Bool
== :: RawJsonString -> RawJsonString -> Bool
$c/= :: RawJsonString -> RawJsonString -> Bool
/= :: RawJsonString -> RawJsonString -> Bool
Eq)

instance FromJSON RawJsonString where
  parseJSON :: Value -> Parser RawJsonString
parseJSON = RawJsonString -> Parser RawJsonString
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (RawJsonString -> Parser RawJsonString)
-> (Value -> RawJsonString) -> Value -> Parser RawJsonString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> RawJsonString
RawJsonString (String -> RawJsonString)
-> (Value -> String) -> Value -> RawJsonString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> String
BL.unpack (ByteString -> String) -> (Value -> ByteString) -> Value -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Value -> ByteString
forall a. ToJSON a => a -> ByteString
encode

instance ToJSON RawJsonString where
  toJSON :: RawJsonString -> Value
toJSON (RawJsonString String
str) =
    case ByteString -> Either String Value
forall a. FromJSON a => ByteString -> Either String a
eitherDecode (String -> ByteString
BL.pack String
str) of
      Right Value
v -> Value
v
      Left  String
e -> String -> Value
forall a. HasCallStack => String -> a
error (String -> Value) -> String -> Value
forall a b. (a -> b) -> a -> b
$ String -> String
forall a. Show a => a -> String
show String
e

instance Default RawJsonString where
  def :: RawJsonString
def = String -> RawJsonString
RawJsonString String
""

-- |
--
newtype RawJsonByteString = RawJsonByteString { RawJsonByteString -> ByteString
unRawJsonByteString :: BL.ByteString }
  deriving (Int -> RawJsonByteString -> String -> String
[RawJsonByteString] -> String -> String
RawJsonByteString -> String
(Int -> RawJsonByteString -> String -> String)
-> (RawJsonByteString -> String)
-> ([RawJsonByteString] -> String -> String)
-> Show RawJsonByteString
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> RawJsonByteString -> String -> String
showsPrec :: Int -> RawJsonByteString -> String -> String
$cshow :: RawJsonByteString -> String
show :: RawJsonByteString -> String
$cshowList :: [RawJsonByteString] -> String -> String
showList :: [RawJsonByteString] -> String -> String
Show, ReadPrec [RawJsonByteString]
ReadPrec RawJsonByteString
Int -> ReadS RawJsonByteString
ReadS [RawJsonByteString]
(Int -> ReadS RawJsonByteString)
-> ReadS [RawJsonByteString]
-> ReadPrec RawJsonByteString
-> ReadPrec [RawJsonByteString]
-> Read RawJsonByteString
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS RawJsonByteString
readsPrec :: Int -> ReadS RawJsonByteString
$creadList :: ReadS [RawJsonByteString]
readList :: ReadS [RawJsonByteString]
$creadPrec :: ReadPrec RawJsonByteString
readPrec :: ReadPrec RawJsonByteString
$creadListPrec :: ReadPrec [RawJsonByteString]
readListPrec :: ReadPrec [RawJsonByteString]
Read, RawJsonByteString -> RawJsonByteString -> Bool
(RawJsonByteString -> RawJsonByteString -> Bool)
-> (RawJsonByteString -> RawJsonByteString -> Bool)
-> Eq RawJsonByteString
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RawJsonByteString -> RawJsonByteString -> Bool
== :: RawJsonByteString -> RawJsonByteString -> Bool
$c/= :: RawJsonByteString -> RawJsonByteString -> Bool
/= :: RawJsonByteString -> RawJsonByteString -> Bool
Eq)

instance FromJSON RawJsonByteString where
  parseJSON :: Value -> Parser RawJsonByteString
parseJSON = RawJsonByteString -> Parser RawJsonByteString
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (RawJsonByteString -> Parser RawJsonByteString)
-> (Value -> RawJsonByteString)
-> Value
-> Parser RawJsonByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> RawJsonByteString
RawJsonByteString (ByteString -> RawJsonByteString)
-> (Value -> ByteString) -> Value -> RawJsonByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Value -> ByteString
forall a. ToJSON a => a -> ByteString
encode

instance ToJSON RawJsonByteString where
  toJSON :: RawJsonByteString -> Value
toJSON (RawJsonByteString ByteString
bs) =
    case ByteString -> Either String Value
forall a. FromJSON a => ByteString -> Either String a
eitherDecode ByteString
bs of
      Right Value
v -> Value
v
      Left  String
e -> String -> Value
forall a. HasCallStack => String -> a
error (String -> Value) -> String -> Value
forall a b. (a -> b) -> a -> b
$ String -> String
forall a. Show a => a -> String
show String
e

instance Default RawJsonByteString where
  def :: RawJsonByteString
def = ByteString -> RawJsonByteString
RawJsonByteString ByteString
""

--------------------------------------------------------------------------------
-- |
--
data JsonRpcRequest =
  JsonRpcRequest {
    JsonRpcRequest -> String
_jsonrpcJsonRpcRequest  :: String
  , JsonRpcRequest -> Maybe Int
_idJsonRpcRequest       :: Maybe Int
  , JsonRpcRequest -> String
_methodJsonRpcRequest   :: String
  , JsonRpcRequest -> Maybe RawJsonByteString
_paramsJsonRpcRequest   :: Maybe RawJsonByteString
  } deriving (Int -> JsonRpcRequest -> String -> String
[JsonRpcRequest] -> String -> String
JsonRpcRequest -> String
(Int -> JsonRpcRequest -> String -> String)
-> (JsonRpcRequest -> String)
-> ([JsonRpcRequest] -> String -> String)
-> Show JsonRpcRequest
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> JsonRpcRequest -> String -> String
showsPrec :: Int -> JsonRpcRequest -> String -> String
$cshow :: JsonRpcRequest -> String
show :: JsonRpcRequest -> String
$cshowList :: [JsonRpcRequest] -> String -> String
showList :: [JsonRpcRequest] -> String -> String
Show, ReadPrec [JsonRpcRequest]
ReadPrec JsonRpcRequest
Int -> ReadS JsonRpcRequest
ReadS [JsonRpcRequest]
(Int -> ReadS JsonRpcRequest)
-> ReadS [JsonRpcRequest]
-> ReadPrec JsonRpcRequest
-> ReadPrec [JsonRpcRequest]
-> Read JsonRpcRequest
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS JsonRpcRequest
readsPrec :: Int -> ReadS JsonRpcRequest
$creadList :: ReadS [JsonRpcRequest]
readList :: ReadS [JsonRpcRequest]
$creadPrec :: ReadPrec JsonRpcRequest
readPrec :: ReadPrec JsonRpcRequest
$creadListPrec :: ReadPrec [JsonRpcRequest]
readListPrec :: ReadPrec [JsonRpcRequest]
Read, JsonRpcRequest -> JsonRpcRequest -> Bool
(JsonRpcRequest -> JsonRpcRequest -> Bool)
-> (JsonRpcRequest -> JsonRpcRequest -> Bool) -> Eq JsonRpcRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: JsonRpcRequest -> JsonRpcRequest -> Bool
== :: JsonRpcRequest -> JsonRpcRequest -> Bool
$c/= :: JsonRpcRequest -> JsonRpcRequest -> Bool
/= :: JsonRpcRequest -> JsonRpcRequest -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "JsonRpcRequest", omitNothingFields = True} ''JsonRpcRequest)
makeLenses ''JsonRpcRequest

instance Default JsonRpcRequest where
  def :: JsonRpcRequest
def = JsonRpcRequest {
        _jsonrpcJsonRpcRequest :: String
_jsonrpcJsonRpcRequest  = String
forall a. Default a => a
def
      , _idJsonRpcRequest :: Maybe Int
_idJsonRpcRequest  = Maybe Int
forall a. Default a => a
def
      , _methodJsonRpcRequest :: String
_methodJsonRpcRequest = String
forall a. Default a => a
def
      , _paramsJsonRpcRequest :: Maybe RawJsonByteString
_paramsJsonRpcRequest = Maybe RawJsonByteString
forall a. Default a => a
def
      }

-- |
--
data JsonRpcResponse =
  JsonRpcResponse {
    JsonRpcResponse -> String
_jsonrpcJsonRpcResponse :: String
  , JsonRpcResponse -> Int
_idJsonRpcResponse      :: Int
  , JsonRpcResponse -> RawJsonByteString
_resultJsonRpcResponse  :: RawJsonByteString
  } deriving (Int -> JsonRpcResponse -> String -> String
[JsonRpcResponse] -> String -> String
JsonRpcResponse -> String
(Int -> JsonRpcResponse -> String -> String)
-> (JsonRpcResponse -> String)
-> ([JsonRpcResponse] -> String -> String)
-> Show JsonRpcResponse
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> JsonRpcResponse -> String -> String
showsPrec :: Int -> JsonRpcResponse -> String -> String
$cshow :: JsonRpcResponse -> String
show :: JsonRpcResponse -> String
$cshowList :: [JsonRpcResponse] -> String -> String
showList :: [JsonRpcResponse] -> String -> String
Show, ReadPrec [JsonRpcResponse]
ReadPrec JsonRpcResponse
Int -> ReadS JsonRpcResponse
ReadS [JsonRpcResponse]
(Int -> ReadS JsonRpcResponse)
-> ReadS [JsonRpcResponse]
-> ReadPrec JsonRpcResponse
-> ReadPrec [JsonRpcResponse]
-> Read JsonRpcResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS JsonRpcResponse
readsPrec :: Int -> ReadS JsonRpcResponse
$creadList :: ReadS [JsonRpcResponse]
readList :: ReadS [JsonRpcResponse]
$creadPrec :: ReadPrec JsonRpcResponse
readPrec :: ReadPrec JsonRpcResponse
$creadListPrec :: ReadPrec [JsonRpcResponse]
readListPrec :: ReadPrec [JsonRpcResponse]
Read, JsonRpcResponse -> JsonRpcResponse -> Bool
(JsonRpcResponse -> JsonRpcResponse -> Bool)
-> (JsonRpcResponse -> JsonRpcResponse -> Bool)
-> Eq JsonRpcResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: JsonRpcResponse -> JsonRpcResponse -> Bool
== :: JsonRpcResponse -> JsonRpcResponse -> Bool
$c/= :: JsonRpcResponse -> JsonRpcResponse -> Bool
/= :: JsonRpcResponse -> JsonRpcResponse -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "JsonRpcResponse", omitNothingFields = True} ''JsonRpcResponse)
makeLenses ''JsonRpcResponse

instance Default JsonRpcResponse where
  def :: JsonRpcResponse
def = JsonRpcResponse {
        _jsonrpcJsonRpcResponse :: String
_jsonrpcJsonRpcResponse = String
""
      , _idJsonRpcResponse :: Int
_idJsonRpcResponse = Int
0
      , _resultJsonRpcResponse :: RawJsonByteString
_resultJsonRpcResponse = ByteString -> RawJsonByteString
RawJsonByteString ByteString
""
      }

defaultJsonRpcResponse :: JsonRpcRequest -> JsonRpcResponse
defaultJsonRpcResponse :: JsonRpcRequest -> JsonRpcResponse
defaultJsonRpcResponse JsonRpcRequest
req = JsonRpcResponse
forall a. Default a => a
def {
    _jsonrpcJsonRpcResponse = req^.jsonrpcJsonRpcRequest
  , _idJsonRpcResponse = maybe 0 id (req^.idJsonRpcRequest)
  , _resultJsonRpcResponse = def
  }

-- |
--
data JsonRpcNotification =
  JsonRpcNotification {
    JsonRpcNotification -> String
_jsonrpcJsonRpcNotification :: String
  , JsonRpcNotification -> String
_methodJsonRpcNotification  :: String
  , JsonRpcNotification -> Maybe RawJsonByteString
_paramsJsonRpcNotification  :: Maybe RawJsonByteString
  } deriving (Int -> JsonRpcNotification -> String -> String
[JsonRpcNotification] -> String -> String
JsonRpcNotification -> String
(Int -> JsonRpcNotification -> String -> String)
-> (JsonRpcNotification -> String)
-> ([JsonRpcNotification] -> String -> String)
-> Show JsonRpcNotification
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> JsonRpcNotification -> String -> String
showsPrec :: Int -> JsonRpcNotification -> String -> String
$cshow :: JsonRpcNotification -> String
show :: JsonRpcNotification -> String
$cshowList :: [JsonRpcNotification] -> String -> String
showList :: [JsonRpcNotification] -> String -> String
Show, ReadPrec [JsonRpcNotification]
ReadPrec JsonRpcNotification
Int -> ReadS JsonRpcNotification
ReadS [JsonRpcNotification]
(Int -> ReadS JsonRpcNotification)
-> ReadS [JsonRpcNotification]
-> ReadPrec JsonRpcNotification
-> ReadPrec [JsonRpcNotification]
-> Read JsonRpcNotification
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS JsonRpcNotification
readsPrec :: Int -> ReadS JsonRpcNotification
$creadList :: ReadS [JsonRpcNotification]
readList :: ReadS [JsonRpcNotification]
$creadPrec :: ReadPrec JsonRpcNotification
readPrec :: ReadPrec JsonRpcNotification
$creadListPrec :: ReadPrec [JsonRpcNotification]
readListPrec :: ReadPrec [JsonRpcNotification]
Read, JsonRpcNotification -> JsonRpcNotification -> Bool
(JsonRpcNotification -> JsonRpcNotification -> Bool)
-> (JsonRpcNotification -> JsonRpcNotification -> Bool)
-> Eq JsonRpcNotification
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: JsonRpcNotification -> JsonRpcNotification -> Bool
== :: JsonRpcNotification -> JsonRpcNotification -> Bool
$c/= :: JsonRpcNotification -> JsonRpcNotification -> Bool
/= :: JsonRpcNotification -> JsonRpcNotification -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "JsonRpcNotification", omitNothingFields = True} ''JsonRpcNotification)
makeLenses ''JsonRpcNotification

instance Default JsonRpcNotification where
  def :: JsonRpcNotification
def = JsonRpcNotification {
        _jsonrpcJsonRpcNotification :: String
_jsonrpcJsonRpcNotification = String
"2.0"
      , _methodJsonRpcNotification :: String
_methodJsonRpcNotification  = String
forall a. Default a => a
def
      , _paramsJsonRpcNotification :: Maybe RawJsonByteString
_paramsJsonRpcNotification  = Maybe RawJsonByteString
forall a. Default a => a
def
      }

--------------------------------------------------------------------------------

-- |
--
data McpInitializeRequestParams =
  McpInitializeRequestParams {
    McpInitializeRequestParams -> String
_protocolVersionMcpInitializeRequestParams :: String
  , McpInitializeRequestParams -> RawJsonByteString
_capabilitiesMcpInitializeRequestParams    :: RawJsonByteString
  , McpInitializeRequestParams -> RawJsonByteString
_clientInfoMcpInitializeRequestParams      :: RawJsonByteString
  } deriving (Int -> McpInitializeRequestParams -> String -> String
[McpInitializeRequestParams] -> String -> String
McpInitializeRequestParams -> String
(Int -> McpInitializeRequestParams -> String -> String)
-> (McpInitializeRequestParams -> String)
-> ([McpInitializeRequestParams] -> String -> String)
-> Show McpInitializeRequestParams
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpInitializeRequestParams -> String -> String
showsPrec :: Int -> McpInitializeRequestParams -> String -> String
$cshow :: McpInitializeRequestParams -> String
show :: McpInitializeRequestParams -> String
$cshowList :: [McpInitializeRequestParams] -> String -> String
showList :: [McpInitializeRequestParams] -> String -> String
Show, ReadPrec [McpInitializeRequestParams]
ReadPrec McpInitializeRequestParams
Int -> ReadS McpInitializeRequestParams
ReadS [McpInitializeRequestParams]
(Int -> ReadS McpInitializeRequestParams)
-> ReadS [McpInitializeRequestParams]
-> ReadPrec McpInitializeRequestParams
-> ReadPrec [McpInitializeRequestParams]
-> Read McpInitializeRequestParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializeRequestParams
readsPrec :: Int -> ReadS McpInitializeRequestParams
$creadList :: ReadS [McpInitializeRequestParams]
readList :: ReadS [McpInitializeRequestParams]
$creadPrec :: ReadPrec McpInitializeRequestParams
readPrec :: ReadPrec McpInitializeRequestParams
$creadListPrec :: ReadPrec [McpInitializeRequestParams]
readListPrec :: ReadPrec [McpInitializeRequestParams]
Read, McpInitializeRequestParams -> McpInitializeRequestParams -> Bool
(McpInitializeRequestParams -> McpInitializeRequestParams -> Bool)
-> (McpInitializeRequestParams
    -> McpInitializeRequestParams -> Bool)
-> Eq McpInitializeRequestParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializeRequestParams -> McpInitializeRequestParams -> Bool
== :: McpInitializeRequestParams -> McpInitializeRequestParams -> Bool
$c/= :: McpInitializeRequestParams -> McpInitializeRequestParams -> Bool
/= :: McpInitializeRequestParams -> McpInitializeRequestParams -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializeRequestParams", omitNothingFields = True} ''McpInitializeRequestParams)
makeLenses ''McpInitializeRequestParams

instance Default McpInitializeRequestParams where
  def :: McpInitializeRequestParams
def = McpInitializeRequestParams {
        _protocolVersionMcpInitializeRequestParams :: String
_protocolVersionMcpInitializeRequestParams = String
forall a. Default a => a
def
      , _capabilitiesMcpInitializeRequestParams :: RawJsonByteString
_capabilitiesMcpInitializeRequestParams = RawJsonByteString
forall a. Default a => a
def
      , _clientInfoMcpInitializeRequestParams :: RawJsonByteString
_clientInfoMcpInitializeRequestParams = RawJsonByteString
forall a. Default a => a
def
      }

-- |
--
data McpInitializeRequestData =
  McpInitializeRequestData {
    McpInitializeRequestData -> JsonRpcRequest
_jsonrpcMcpInitializeRequestData :: JsonRpcRequest
  , McpInitializeRequestData -> McpInitializeRequestParams
_paramsMcpInitializeRequestData  :: McpInitializeRequestParams
  } deriving (Int -> McpInitializeRequestData -> String -> String
[McpInitializeRequestData] -> String -> String
McpInitializeRequestData -> String
(Int -> McpInitializeRequestData -> String -> String)
-> (McpInitializeRequestData -> String)
-> ([McpInitializeRequestData] -> String -> String)
-> Show McpInitializeRequestData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpInitializeRequestData -> String -> String
showsPrec :: Int -> McpInitializeRequestData -> String -> String
$cshow :: McpInitializeRequestData -> String
show :: McpInitializeRequestData -> String
$cshowList :: [McpInitializeRequestData] -> String -> String
showList :: [McpInitializeRequestData] -> String -> String
Show, ReadPrec [McpInitializeRequestData]
ReadPrec McpInitializeRequestData
Int -> ReadS McpInitializeRequestData
ReadS [McpInitializeRequestData]
(Int -> ReadS McpInitializeRequestData)
-> ReadS [McpInitializeRequestData]
-> ReadPrec McpInitializeRequestData
-> ReadPrec [McpInitializeRequestData]
-> Read McpInitializeRequestData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializeRequestData
readsPrec :: Int -> ReadS McpInitializeRequestData
$creadList :: ReadS [McpInitializeRequestData]
readList :: ReadS [McpInitializeRequestData]
$creadPrec :: ReadPrec McpInitializeRequestData
readPrec :: ReadPrec McpInitializeRequestData
$creadListPrec :: ReadPrec [McpInitializeRequestData]
readListPrec :: ReadPrec [McpInitializeRequestData]
Read, McpInitializeRequestData -> McpInitializeRequestData -> Bool
(McpInitializeRequestData -> McpInitializeRequestData -> Bool)
-> (McpInitializeRequestData -> McpInitializeRequestData -> Bool)
-> Eq McpInitializeRequestData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializeRequestData -> McpInitializeRequestData -> Bool
== :: McpInitializeRequestData -> McpInitializeRequestData -> Bool
$c/= :: McpInitializeRequestData -> McpInitializeRequestData -> Bool
/= :: McpInitializeRequestData -> McpInitializeRequestData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializeRequestData", omitNothingFields = True} ''McpInitializeRequestData)
makeLenses ''McpInitializeRequestData

instance Default McpInitializeRequestData where
  def :: McpInitializeRequestData
def = McpInitializeRequestData {
        _jsonrpcMcpInitializeRequestData :: JsonRpcRequest
_jsonrpcMcpInitializeRequestData = JsonRpcRequest
forall a. Default a => a
def
      , _paramsMcpInitializeRequestData :: McpInitializeRequestParams
_paramsMcpInitializeRequestData = McpInitializeRequestParams
forall a. Default a => a
def
      }

-- |
--
data McpToolsListRequestData =
  McpToolsListRequestData {
    McpToolsListRequestData -> JsonRpcRequest
_jsonrpcMcpToolsListRequestData :: JsonRpcRequest
  } deriving (Int -> McpToolsListRequestData -> String -> String
[McpToolsListRequestData] -> String -> String
McpToolsListRequestData -> String
(Int -> McpToolsListRequestData -> String -> String)
-> (McpToolsListRequestData -> String)
-> ([McpToolsListRequestData] -> String -> String)
-> Show McpToolsListRequestData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpToolsListRequestData -> String -> String
showsPrec :: Int -> McpToolsListRequestData -> String -> String
$cshow :: McpToolsListRequestData -> String
show :: McpToolsListRequestData -> String
$cshowList :: [McpToolsListRequestData] -> String -> String
showList :: [McpToolsListRequestData] -> String -> String
Show, ReadPrec [McpToolsListRequestData]
ReadPrec McpToolsListRequestData
Int -> ReadS McpToolsListRequestData
ReadS [McpToolsListRequestData]
(Int -> ReadS McpToolsListRequestData)
-> ReadS [McpToolsListRequestData]
-> ReadPrec McpToolsListRequestData
-> ReadPrec [McpToolsListRequestData]
-> Read McpToolsListRequestData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsListRequestData
readsPrec :: Int -> ReadS McpToolsListRequestData
$creadList :: ReadS [McpToolsListRequestData]
readList :: ReadS [McpToolsListRequestData]
$creadPrec :: ReadPrec McpToolsListRequestData
readPrec :: ReadPrec McpToolsListRequestData
$creadListPrec :: ReadPrec [McpToolsListRequestData]
readListPrec :: ReadPrec [McpToolsListRequestData]
Read, McpToolsListRequestData -> McpToolsListRequestData -> Bool
(McpToolsListRequestData -> McpToolsListRequestData -> Bool)
-> (McpToolsListRequestData -> McpToolsListRequestData -> Bool)
-> Eq McpToolsListRequestData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsListRequestData -> McpToolsListRequestData -> Bool
== :: McpToolsListRequestData -> McpToolsListRequestData -> Bool
$c/= :: McpToolsListRequestData -> McpToolsListRequestData -> Bool
/= :: McpToolsListRequestData -> McpToolsListRequestData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsListRequestData", omitNothingFields = True} ''McpToolsListRequestData)
makeLenses ''McpToolsListRequestData

instance Default McpToolsListRequestData where
  def :: McpToolsListRequestData
def = McpToolsListRequestData {
        _jsonrpcMcpToolsListRequestData :: JsonRpcRequest
_jsonrpcMcpToolsListRequestData = JsonRpcRequest
forall a. Default a => a
def
      }

-- |
--
data McpToolsCallRequestDataParams =
  McpToolsCallRequestDataParams {
    McpToolsCallRequestDataParams -> String
_nameMcpToolsCallRequestDataParams :: String
  , McpToolsCallRequestDataParams -> RawJsonByteString
_argumentsMcpToolsCallRequestDataParams  :: RawJsonByteString
  } deriving (Int -> McpToolsCallRequestDataParams -> String -> String
[McpToolsCallRequestDataParams] -> String -> String
McpToolsCallRequestDataParams -> String
(Int -> McpToolsCallRequestDataParams -> String -> String)
-> (McpToolsCallRequestDataParams -> String)
-> ([McpToolsCallRequestDataParams] -> String -> String)
-> Show McpToolsCallRequestDataParams
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpToolsCallRequestDataParams -> String -> String
showsPrec :: Int -> McpToolsCallRequestDataParams -> String -> String
$cshow :: McpToolsCallRequestDataParams -> String
show :: McpToolsCallRequestDataParams -> String
$cshowList :: [McpToolsCallRequestDataParams] -> String -> String
showList :: [McpToolsCallRequestDataParams] -> String -> String
Show, ReadPrec [McpToolsCallRequestDataParams]
ReadPrec McpToolsCallRequestDataParams
Int -> ReadS McpToolsCallRequestDataParams
ReadS [McpToolsCallRequestDataParams]
(Int -> ReadS McpToolsCallRequestDataParams)
-> ReadS [McpToolsCallRequestDataParams]
-> ReadPrec McpToolsCallRequestDataParams
-> ReadPrec [McpToolsCallRequestDataParams]
-> Read McpToolsCallRequestDataParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsCallRequestDataParams
readsPrec :: Int -> ReadS McpToolsCallRequestDataParams
$creadList :: ReadS [McpToolsCallRequestDataParams]
readList :: ReadS [McpToolsCallRequestDataParams]
$creadPrec :: ReadPrec McpToolsCallRequestDataParams
readPrec :: ReadPrec McpToolsCallRequestDataParams
$creadListPrec :: ReadPrec [McpToolsCallRequestDataParams]
readListPrec :: ReadPrec [McpToolsCallRequestDataParams]
Read, McpToolsCallRequestDataParams
-> McpToolsCallRequestDataParams -> Bool
(McpToolsCallRequestDataParams
 -> McpToolsCallRequestDataParams -> Bool)
-> (McpToolsCallRequestDataParams
    -> McpToolsCallRequestDataParams -> Bool)
-> Eq McpToolsCallRequestDataParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsCallRequestDataParams
-> McpToolsCallRequestDataParams -> Bool
== :: McpToolsCallRequestDataParams
-> McpToolsCallRequestDataParams -> Bool
$c/= :: McpToolsCallRequestDataParams
-> McpToolsCallRequestDataParams -> Bool
/= :: McpToolsCallRequestDataParams
-> McpToolsCallRequestDataParams -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsCallRequestDataParams", omitNothingFields = True} ''McpToolsCallRequestDataParams)
makeLenses ''McpToolsCallRequestDataParams

instance Default McpToolsCallRequestDataParams where
  def :: McpToolsCallRequestDataParams
def = McpToolsCallRequestDataParams {
        _nameMcpToolsCallRequestDataParams :: String
_nameMcpToolsCallRequestDataParams = String
forall a. Default a => a
def
      , _argumentsMcpToolsCallRequestDataParams :: RawJsonByteString
_argumentsMcpToolsCallRequestDataParams  = RawJsonByteString
forall a. Default a => a
def
      }


-- |
--
data McpToolsCallRequestData =
  McpToolsCallRequestData {
    McpToolsCallRequestData -> JsonRpcRequest
_jsonrpcMcpToolsCallRequestData :: JsonRpcRequest
  , McpToolsCallRequestData -> McpToolsCallRequestDataParams
_paramsMcpToolsCallRequestData  :: McpToolsCallRequestDataParams
  } deriving (Int -> McpToolsCallRequestData -> String -> String
[McpToolsCallRequestData] -> String -> String
McpToolsCallRequestData -> String
(Int -> McpToolsCallRequestData -> String -> String)
-> (McpToolsCallRequestData -> String)
-> ([McpToolsCallRequestData] -> String -> String)
-> Show McpToolsCallRequestData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpToolsCallRequestData -> String -> String
showsPrec :: Int -> McpToolsCallRequestData -> String -> String
$cshow :: McpToolsCallRequestData -> String
show :: McpToolsCallRequestData -> String
$cshowList :: [McpToolsCallRequestData] -> String -> String
showList :: [McpToolsCallRequestData] -> String -> String
Show, ReadPrec [McpToolsCallRequestData]
ReadPrec McpToolsCallRequestData
Int -> ReadS McpToolsCallRequestData
ReadS [McpToolsCallRequestData]
(Int -> ReadS McpToolsCallRequestData)
-> ReadS [McpToolsCallRequestData]
-> ReadPrec McpToolsCallRequestData
-> ReadPrec [McpToolsCallRequestData]
-> Read McpToolsCallRequestData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsCallRequestData
readsPrec :: Int -> ReadS McpToolsCallRequestData
$creadList :: ReadS [McpToolsCallRequestData]
readList :: ReadS [McpToolsCallRequestData]
$creadPrec :: ReadPrec McpToolsCallRequestData
readPrec :: ReadPrec McpToolsCallRequestData
$creadListPrec :: ReadPrec [McpToolsCallRequestData]
readListPrec :: ReadPrec [McpToolsCallRequestData]
Read, McpToolsCallRequestData -> McpToolsCallRequestData -> Bool
(McpToolsCallRequestData -> McpToolsCallRequestData -> Bool)
-> (McpToolsCallRequestData -> McpToolsCallRequestData -> Bool)
-> Eq McpToolsCallRequestData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsCallRequestData -> McpToolsCallRequestData -> Bool
== :: McpToolsCallRequestData -> McpToolsCallRequestData -> Bool
$c/= :: McpToolsCallRequestData -> McpToolsCallRequestData -> Bool
/= :: McpToolsCallRequestData -> McpToolsCallRequestData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsCallRequestData", omitNothingFields = True} ''McpToolsCallRequestData)
makeLenses ''McpToolsCallRequestData

instance Default McpToolsCallRequestData where
  def :: McpToolsCallRequestData
def = McpToolsCallRequestData {
        _jsonrpcMcpToolsCallRequestData :: JsonRpcRequest
_jsonrpcMcpToolsCallRequestData = JsonRpcRequest
forall a. Default a => a
def
      , _paramsMcpToolsCallRequestData :: McpToolsCallRequestDataParams
_paramsMcpToolsCallRequestData  = McpToolsCallRequestDataParams
forall a. Default a => a
def
      }


-- |
--
data McpPromptsListRequestData =
  McpPromptsListRequestData {
    McpPromptsListRequestData -> JsonRpcRequest
_jsonrpcMcpPromptsListRequestData :: JsonRpcRequest
  } deriving (Int -> McpPromptsListRequestData -> String -> String
[McpPromptsListRequestData] -> String -> String
McpPromptsListRequestData -> String
(Int -> McpPromptsListRequestData -> String -> String)
-> (McpPromptsListRequestData -> String)
-> ([McpPromptsListRequestData] -> String -> String)
-> Show McpPromptsListRequestData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpPromptsListRequestData -> String -> String
showsPrec :: Int -> McpPromptsListRequestData -> String -> String
$cshow :: McpPromptsListRequestData -> String
show :: McpPromptsListRequestData -> String
$cshowList :: [McpPromptsListRequestData] -> String -> String
showList :: [McpPromptsListRequestData] -> String -> String
Show, ReadPrec [McpPromptsListRequestData]
ReadPrec McpPromptsListRequestData
Int -> ReadS McpPromptsListRequestData
ReadS [McpPromptsListRequestData]
(Int -> ReadS McpPromptsListRequestData)
-> ReadS [McpPromptsListRequestData]
-> ReadPrec McpPromptsListRequestData
-> ReadPrec [McpPromptsListRequestData]
-> Read McpPromptsListRequestData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsListRequestData
readsPrec :: Int -> ReadS McpPromptsListRequestData
$creadList :: ReadS [McpPromptsListRequestData]
readList :: ReadS [McpPromptsListRequestData]
$creadPrec :: ReadPrec McpPromptsListRequestData
readPrec :: ReadPrec McpPromptsListRequestData
$creadListPrec :: ReadPrec [McpPromptsListRequestData]
readListPrec :: ReadPrec [McpPromptsListRequestData]
Read, McpPromptsListRequestData -> McpPromptsListRequestData -> Bool
(McpPromptsListRequestData -> McpPromptsListRequestData -> Bool)
-> (McpPromptsListRequestData -> McpPromptsListRequestData -> Bool)
-> Eq McpPromptsListRequestData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsListRequestData -> McpPromptsListRequestData -> Bool
== :: McpPromptsListRequestData -> McpPromptsListRequestData -> Bool
$c/= :: McpPromptsListRequestData -> McpPromptsListRequestData -> Bool
/= :: McpPromptsListRequestData -> McpPromptsListRequestData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsListRequestData", omitNothingFields = True} ''McpPromptsListRequestData)
makeLenses ''McpPromptsListRequestData

instance Default McpPromptsListRequestData where
  def :: McpPromptsListRequestData
def = McpPromptsListRequestData {
        _jsonrpcMcpPromptsListRequestData :: JsonRpcRequest
_jsonrpcMcpPromptsListRequestData = JsonRpcRequest
forall a. Default a => a
def
      }

-- |
--
data McpPromptsGetRequestDataParams =
  McpPromptsGetRequestDataParams {
    McpPromptsGetRequestDataParams -> String
_nameMcpPromptsGetRequestDataParams :: String
  , McpPromptsGetRequestDataParams -> RawJsonByteString
_argumentsMcpPromptsGetRequestDataParams  :: RawJsonByteString
  } deriving (Int -> McpPromptsGetRequestDataParams -> String -> String
[McpPromptsGetRequestDataParams] -> String -> String
McpPromptsGetRequestDataParams -> String
(Int -> McpPromptsGetRequestDataParams -> String -> String)
-> (McpPromptsGetRequestDataParams -> String)
-> ([McpPromptsGetRequestDataParams] -> String -> String)
-> Show McpPromptsGetRequestDataParams
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpPromptsGetRequestDataParams -> String -> String
showsPrec :: Int -> McpPromptsGetRequestDataParams -> String -> String
$cshow :: McpPromptsGetRequestDataParams -> String
show :: McpPromptsGetRequestDataParams -> String
$cshowList :: [McpPromptsGetRequestDataParams] -> String -> String
showList :: [McpPromptsGetRequestDataParams] -> String -> String
Show, ReadPrec [McpPromptsGetRequestDataParams]
ReadPrec McpPromptsGetRequestDataParams
Int -> ReadS McpPromptsGetRequestDataParams
ReadS [McpPromptsGetRequestDataParams]
(Int -> ReadS McpPromptsGetRequestDataParams)
-> ReadS [McpPromptsGetRequestDataParams]
-> ReadPrec McpPromptsGetRequestDataParams
-> ReadPrec [McpPromptsGetRequestDataParams]
-> Read McpPromptsGetRequestDataParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsGetRequestDataParams
readsPrec :: Int -> ReadS McpPromptsGetRequestDataParams
$creadList :: ReadS [McpPromptsGetRequestDataParams]
readList :: ReadS [McpPromptsGetRequestDataParams]
$creadPrec :: ReadPrec McpPromptsGetRequestDataParams
readPrec :: ReadPrec McpPromptsGetRequestDataParams
$creadListPrec :: ReadPrec [McpPromptsGetRequestDataParams]
readListPrec :: ReadPrec [McpPromptsGetRequestDataParams]
Read, McpPromptsGetRequestDataParams
-> McpPromptsGetRequestDataParams -> Bool
(McpPromptsGetRequestDataParams
 -> McpPromptsGetRequestDataParams -> Bool)
-> (McpPromptsGetRequestDataParams
    -> McpPromptsGetRequestDataParams -> Bool)
-> Eq McpPromptsGetRequestDataParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsGetRequestDataParams
-> McpPromptsGetRequestDataParams -> Bool
== :: McpPromptsGetRequestDataParams
-> McpPromptsGetRequestDataParams -> Bool
$c/= :: McpPromptsGetRequestDataParams
-> McpPromptsGetRequestDataParams -> Bool
/= :: McpPromptsGetRequestDataParams
-> McpPromptsGetRequestDataParams -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsGetRequestDataParams", omitNothingFields = True} ''McpPromptsGetRequestDataParams)
makeLenses ''McpPromptsGetRequestDataParams

instance Default McpPromptsGetRequestDataParams where
  def :: McpPromptsGetRequestDataParams
def = McpPromptsGetRequestDataParams {
        _nameMcpPromptsGetRequestDataParams :: String
_nameMcpPromptsGetRequestDataParams = String
forall a. Default a => a
def
      , _argumentsMcpPromptsGetRequestDataParams :: RawJsonByteString
_argumentsMcpPromptsGetRequestDataParams  = RawJsonByteString
forall a. Default a => a
def
      }

-- |
--
data McpPromptsGetRequestData =
  McpPromptsGetRequestData {
    McpPromptsGetRequestData -> JsonRpcRequest
_jsonrpcMcpPromptsGetRequestData :: JsonRpcRequest
  , McpPromptsGetRequestData -> McpPromptsGetRequestDataParams
_paramsMcpPromptsGetRequestData  :: McpPromptsGetRequestDataParams
  } deriving (Int -> McpPromptsGetRequestData -> String -> String
[McpPromptsGetRequestData] -> String -> String
McpPromptsGetRequestData -> String
(Int -> McpPromptsGetRequestData -> String -> String)
-> (McpPromptsGetRequestData -> String)
-> ([McpPromptsGetRequestData] -> String -> String)
-> Show McpPromptsGetRequestData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpPromptsGetRequestData -> String -> String
showsPrec :: Int -> McpPromptsGetRequestData -> String -> String
$cshow :: McpPromptsGetRequestData -> String
show :: McpPromptsGetRequestData -> String
$cshowList :: [McpPromptsGetRequestData] -> String -> String
showList :: [McpPromptsGetRequestData] -> String -> String
Show, ReadPrec [McpPromptsGetRequestData]
ReadPrec McpPromptsGetRequestData
Int -> ReadS McpPromptsGetRequestData
ReadS [McpPromptsGetRequestData]
(Int -> ReadS McpPromptsGetRequestData)
-> ReadS [McpPromptsGetRequestData]
-> ReadPrec McpPromptsGetRequestData
-> ReadPrec [McpPromptsGetRequestData]
-> Read McpPromptsGetRequestData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsGetRequestData
readsPrec :: Int -> ReadS McpPromptsGetRequestData
$creadList :: ReadS [McpPromptsGetRequestData]
readList :: ReadS [McpPromptsGetRequestData]
$creadPrec :: ReadPrec McpPromptsGetRequestData
readPrec :: ReadPrec McpPromptsGetRequestData
$creadListPrec :: ReadPrec [McpPromptsGetRequestData]
readListPrec :: ReadPrec [McpPromptsGetRequestData]
Read, McpPromptsGetRequestData -> McpPromptsGetRequestData -> Bool
(McpPromptsGetRequestData -> McpPromptsGetRequestData -> Bool)
-> (McpPromptsGetRequestData -> McpPromptsGetRequestData -> Bool)
-> Eq McpPromptsGetRequestData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsGetRequestData -> McpPromptsGetRequestData -> Bool
== :: McpPromptsGetRequestData -> McpPromptsGetRequestData -> Bool
$c/= :: McpPromptsGetRequestData -> McpPromptsGetRequestData -> Bool
/= :: McpPromptsGetRequestData -> McpPromptsGetRequestData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsGetRequestData", omitNothingFields = True} ''McpPromptsGetRequestData)
makeLenses ''McpPromptsGetRequestData

instance Default McpPromptsGetRequestData where
  def :: McpPromptsGetRequestData
def = McpPromptsGetRequestData {
        _jsonrpcMcpPromptsGetRequestData :: JsonRpcRequest
_jsonrpcMcpPromptsGetRequestData = JsonRpcRequest
forall a. Default a => a
def
      , _paramsMcpPromptsGetRequestData :: McpPromptsGetRequestDataParams
_paramsMcpPromptsGetRequestData  = McpPromptsGetRequestDataParams
forall a. Default a => a
def
      }





-- |
--
data McpResourcesTemplatesListRequestData =
  McpResourcesTemplatesListRequestData {
    McpResourcesTemplatesListRequestData -> JsonRpcRequest
_jsonrpcMcpResourcesTemplatesListRequestData :: JsonRpcRequest
  } deriving (Int -> McpResourcesTemplatesListRequestData -> String -> String
[McpResourcesTemplatesListRequestData] -> String -> String
McpResourcesTemplatesListRequestData -> String
(Int -> McpResourcesTemplatesListRequestData -> String -> String)
-> (McpResourcesTemplatesListRequestData -> String)
-> ([McpResourcesTemplatesListRequestData] -> String -> String)
-> Show McpResourcesTemplatesListRequestData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesTemplatesListRequestData -> String -> String
showsPrec :: Int -> McpResourcesTemplatesListRequestData -> String -> String
$cshow :: McpResourcesTemplatesListRequestData -> String
show :: McpResourcesTemplatesListRequestData -> String
$cshowList :: [McpResourcesTemplatesListRequestData] -> String -> String
showList :: [McpResourcesTemplatesListRequestData] -> String -> String
Show, ReadPrec [McpResourcesTemplatesListRequestData]
ReadPrec McpResourcesTemplatesListRequestData
Int -> ReadS McpResourcesTemplatesListRequestData
ReadS [McpResourcesTemplatesListRequestData]
(Int -> ReadS McpResourcesTemplatesListRequestData)
-> ReadS [McpResourcesTemplatesListRequestData]
-> ReadPrec McpResourcesTemplatesListRequestData
-> ReadPrec [McpResourcesTemplatesListRequestData]
-> Read McpResourcesTemplatesListRequestData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesTemplatesListRequestData
readsPrec :: Int -> ReadS McpResourcesTemplatesListRequestData
$creadList :: ReadS [McpResourcesTemplatesListRequestData]
readList :: ReadS [McpResourcesTemplatesListRequestData]
$creadPrec :: ReadPrec McpResourcesTemplatesListRequestData
readPrec :: ReadPrec McpResourcesTemplatesListRequestData
$creadListPrec :: ReadPrec [McpResourcesTemplatesListRequestData]
readListPrec :: ReadPrec [McpResourcesTemplatesListRequestData]
Read, McpResourcesTemplatesListRequestData
-> McpResourcesTemplatesListRequestData -> Bool
(McpResourcesTemplatesListRequestData
 -> McpResourcesTemplatesListRequestData -> Bool)
-> (McpResourcesTemplatesListRequestData
    -> McpResourcesTemplatesListRequestData -> Bool)
-> Eq McpResourcesTemplatesListRequestData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesTemplatesListRequestData
-> McpResourcesTemplatesListRequestData -> Bool
== :: McpResourcesTemplatesListRequestData
-> McpResourcesTemplatesListRequestData -> Bool
$c/= :: McpResourcesTemplatesListRequestData
-> McpResourcesTemplatesListRequestData -> Bool
/= :: McpResourcesTemplatesListRequestData
-> McpResourcesTemplatesListRequestData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesTemplatesListRequestData", omitNothingFields = True} ''McpResourcesTemplatesListRequestData)
makeLenses ''McpResourcesTemplatesListRequestData

instance Default McpResourcesTemplatesListRequestData where
  def :: McpResourcesTemplatesListRequestData
def = McpResourcesTemplatesListRequestData {
        _jsonrpcMcpResourcesTemplatesListRequestData :: JsonRpcRequest
_jsonrpcMcpResourcesTemplatesListRequestData = JsonRpcRequest
forall a. Default a => a
def
      }


-- |
--
data McpResourcesListRequestData =
  McpResourcesListRequestData {
    McpResourcesListRequestData -> JsonRpcRequest
_jsonrpcMcpResourcesListRequestData :: JsonRpcRequest
  } deriving (Int -> McpResourcesListRequestData -> String -> String
[McpResourcesListRequestData] -> String -> String
McpResourcesListRequestData -> String
(Int -> McpResourcesListRequestData -> String -> String)
-> (McpResourcesListRequestData -> String)
-> ([McpResourcesListRequestData] -> String -> String)
-> Show McpResourcesListRequestData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesListRequestData -> String -> String
showsPrec :: Int -> McpResourcesListRequestData -> String -> String
$cshow :: McpResourcesListRequestData -> String
show :: McpResourcesListRequestData -> String
$cshowList :: [McpResourcesListRequestData] -> String -> String
showList :: [McpResourcesListRequestData] -> String -> String
Show, ReadPrec [McpResourcesListRequestData]
ReadPrec McpResourcesListRequestData
Int -> ReadS McpResourcesListRequestData
ReadS [McpResourcesListRequestData]
(Int -> ReadS McpResourcesListRequestData)
-> ReadS [McpResourcesListRequestData]
-> ReadPrec McpResourcesListRequestData
-> ReadPrec [McpResourcesListRequestData]
-> Read McpResourcesListRequestData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesListRequestData
readsPrec :: Int -> ReadS McpResourcesListRequestData
$creadList :: ReadS [McpResourcesListRequestData]
readList :: ReadS [McpResourcesListRequestData]
$creadPrec :: ReadPrec McpResourcesListRequestData
readPrec :: ReadPrec McpResourcesListRequestData
$creadListPrec :: ReadPrec [McpResourcesListRequestData]
readListPrec :: ReadPrec [McpResourcesListRequestData]
Read, McpResourcesListRequestData -> McpResourcesListRequestData -> Bool
(McpResourcesListRequestData
 -> McpResourcesListRequestData -> Bool)
-> (McpResourcesListRequestData
    -> McpResourcesListRequestData -> Bool)
-> Eq McpResourcesListRequestData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesListRequestData -> McpResourcesListRequestData -> Bool
== :: McpResourcesListRequestData -> McpResourcesListRequestData -> Bool
$c/= :: McpResourcesListRequestData -> McpResourcesListRequestData -> Bool
/= :: McpResourcesListRequestData -> McpResourcesListRequestData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesListRequestData", omitNothingFields = True} ''McpResourcesListRequestData)
makeLenses ''McpResourcesListRequestData

instance Default McpResourcesListRequestData where
  def :: McpResourcesListRequestData
def = McpResourcesListRequestData {
        _jsonrpcMcpResourcesListRequestData :: JsonRpcRequest
_jsonrpcMcpResourcesListRequestData = JsonRpcRequest
forall a. Default a => a
def
      }

-- |
--
data McpResourcesReadRequestDataParams =
  McpResourcesReadRequestDataParams {
    McpResourcesReadRequestDataParams -> String
_uriMcpResourcesReadRequestDataParams :: String
  } deriving (Int -> McpResourcesReadRequestDataParams -> String -> String
[McpResourcesReadRequestDataParams] -> String -> String
McpResourcesReadRequestDataParams -> String
(Int -> McpResourcesReadRequestDataParams -> String -> String)
-> (McpResourcesReadRequestDataParams -> String)
-> ([McpResourcesReadRequestDataParams] -> String -> String)
-> Show McpResourcesReadRequestDataParams
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesReadRequestDataParams -> String -> String
showsPrec :: Int -> McpResourcesReadRequestDataParams -> String -> String
$cshow :: McpResourcesReadRequestDataParams -> String
show :: McpResourcesReadRequestDataParams -> String
$cshowList :: [McpResourcesReadRequestDataParams] -> String -> String
showList :: [McpResourcesReadRequestDataParams] -> String -> String
Show, ReadPrec [McpResourcesReadRequestDataParams]
ReadPrec McpResourcesReadRequestDataParams
Int -> ReadS McpResourcesReadRequestDataParams
ReadS [McpResourcesReadRequestDataParams]
(Int -> ReadS McpResourcesReadRequestDataParams)
-> ReadS [McpResourcesReadRequestDataParams]
-> ReadPrec McpResourcesReadRequestDataParams
-> ReadPrec [McpResourcesReadRequestDataParams]
-> Read McpResourcesReadRequestDataParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesReadRequestDataParams
readsPrec :: Int -> ReadS McpResourcesReadRequestDataParams
$creadList :: ReadS [McpResourcesReadRequestDataParams]
readList :: ReadS [McpResourcesReadRequestDataParams]
$creadPrec :: ReadPrec McpResourcesReadRequestDataParams
readPrec :: ReadPrec McpResourcesReadRequestDataParams
$creadListPrec :: ReadPrec [McpResourcesReadRequestDataParams]
readListPrec :: ReadPrec [McpResourcesReadRequestDataParams]
Read, McpResourcesReadRequestDataParams
-> McpResourcesReadRequestDataParams -> Bool
(McpResourcesReadRequestDataParams
 -> McpResourcesReadRequestDataParams -> Bool)
-> (McpResourcesReadRequestDataParams
    -> McpResourcesReadRequestDataParams -> Bool)
-> Eq McpResourcesReadRequestDataParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesReadRequestDataParams
-> McpResourcesReadRequestDataParams -> Bool
== :: McpResourcesReadRequestDataParams
-> McpResourcesReadRequestDataParams -> Bool
$c/= :: McpResourcesReadRequestDataParams
-> McpResourcesReadRequestDataParams -> Bool
/= :: McpResourcesReadRequestDataParams
-> McpResourcesReadRequestDataParams -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesReadRequestDataParams", omitNothingFields = True} ''McpResourcesReadRequestDataParams)
makeLenses ''McpResourcesReadRequestDataParams

instance Default McpResourcesReadRequestDataParams where
  def :: McpResourcesReadRequestDataParams
def = McpResourcesReadRequestDataParams {
        _uriMcpResourcesReadRequestDataParams :: String
_uriMcpResourcesReadRequestDataParams = String
forall a. Default a => a
def
      }

-- |
--
data McpResourcesReadRequestData =
  McpResourcesReadRequestData {
    McpResourcesReadRequestData -> JsonRpcRequest
_jsonrpcMcpResourcesReadRequestData :: JsonRpcRequest
  , McpResourcesReadRequestData -> McpResourcesReadRequestDataParams
_paramsMcpResourcesReadRequestData  :: McpResourcesReadRequestDataParams
  } deriving (Int -> McpResourcesReadRequestData -> String -> String
[McpResourcesReadRequestData] -> String -> String
McpResourcesReadRequestData -> String
(Int -> McpResourcesReadRequestData -> String -> String)
-> (McpResourcesReadRequestData -> String)
-> ([McpResourcesReadRequestData] -> String -> String)
-> Show McpResourcesReadRequestData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesReadRequestData -> String -> String
showsPrec :: Int -> McpResourcesReadRequestData -> String -> String
$cshow :: McpResourcesReadRequestData -> String
show :: McpResourcesReadRequestData -> String
$cshowList :: [McpResourcesReadRequestData] -> String -> String
showList :: [McpResourcesReadRequestData] -> String -> String
Show, ReadPrec [McpResourcesReadRequestData]
ReadPrec McpResourcesReadRequestData
Int -> ReadS McpResourcesReadRequestData
ReadS [McpResourcesReadRequestData]
(Int -> ReadS McpResourcesReadRequestData)
-> ReadS [McpResourcesReadRequestData]
-> ReadPrec McpResourcesReadRequestData
-> ReadPrec [McpResourcesReadRequestData]
-> Read McpResourcesReadRequestData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesReadRequestData
readsPrec :: Int -> ReadS McpResourcesReadRequestData
$creadList :: ReadS [McpResourcesReadRequestData]
readList :: ReadS [McpResourcesReadRequestData]
$creadPrec :: ReadPrec McpResourcesReadRequestData
readPrec :: ReadPrec McpResourcesReadRequestData
$creadListPrec :: ReadPrec [McpResourcesReadRequestData]
readListPrec :: ReadPrec [McpResourcesReadRequestData]
Read, McpResourcesReadRequestData -> McpResourcesReadRequestData -> Bool
(McpResourcesReadRequestData
 -> McpResourcesReadRequestData -> Bool)
-> (McpResourcesReadRequestData
    -> McpResourcesReadRequestData -> Bool)
-> Eq McpResourcesReadRequestData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesReadRequestData -> McpResourcesReadRequestData -> Bool
== :: McpResourcesReadRequestData -> McpResourcesReadRequestData -> Bool
$c/= :: McpResourcesReadRequestData -> McpResourcesReadRequestData -> Bool
/= :: McpResourcesReadRequestData -> McpResourcesReadRequestData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesReadRequestData", omitNothingFields = True} ''McpResourcesReadRequestData)
makeLenses ''McpResourcesReadRequestData

instance Default McpResourcesReadRequestData where
  def :: McpResourcesReadRequestData
def = McpResourcesReadRequestData {
        _jsonrpcMcpResourcesReadRequestData :: JsonRpcRequest
_jsonrpcMcpResourcesReadRequestData = JsonRpcRequest
forall a. Default a => a
def
      , _paramsMcpResourcesReadRequestData :: McpResourcesReadRequestDataParams
_paramsMcpResourcesReadRequestData  = McpResourcesReadRequestDataParams
forall a. Default a => a
def
      }




-- |
--
data McpInitializedNotificationData =
  McpInitializedNotificationData {
    McpInitializedNotificationData -> JsonRpcRequest
_jsonrpcMcpInitializedNotificationData :: JsonRpcRequest
  } deriving (Int -> McpInitializedNotificationData -> String -> String
[McpInitializedNotificationData] -> String -> String
McpInitializedNotificationData -> String
(Int -> McpInitializedNotificationData -> String -> String)
-> (McpInitializedNotificationData -> String)
-> ([McpInitializedNotificationData] -> String -> String)
-> Show McpInitializedNotificationData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpInitializedNotificationData -> String -> String
showsPrec :: Int -> McpInitializedNotificationData -> String -> String
$cshow :: McpInitializedNotificationData -> String
show :: McpInitializedNotificationData -> String
$cshowList :: [McpInitializedNotificationData] -> String -> String
showList :: [McpInitializedNotificationData] -> String -> String
Show, ReadPrec [McpInitializedNotificationData]
ReadPrec McpInitializedNotificationData
Int -> ReadS McpInitializedNotificationData
ReadS [McpInitializedNotificationData]
(Int -> ReadS McpInitializedNotificationData)
-> ReadS [McpInitializedNotificationData]
-> ReadPrec McpInitializedNotificationData
-> ReadPrec [McpInitializedNotificationData]
-> Read McpInitializedNotificationData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializedNotificationData
readsPrec :: Int -> ReadS McpInitializedNotificationData
$creadList :: ReadS [McpInitializedNotificationData]
readList :: ReadS [McpInitializedNotificationData]
$creadPrec :: ReadPrec McpInitializedNotificationData
readPrec :: ReadPrec McpInitializedNotificationData
$creadListPrec :: ReadPrec [McpInitializedNotificationData]
readListPrec :: ReadPrec [McpInitializedNotificationData]
Read, McpInitializedNotificationData
-> McpInitializedNotificationData -> Bool
(McpInitializedNotificationData
 -> McpInitializedNotificationData -> Bool)
-> (McpInitializedNotificationData
    -> McpInitializedNotificationData -> Bool)
-> Eq McpInitializedNotificationData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializedNotificationData
-> McpInitializedNotificationData -> Bool
== :: McpInitializedNotificationData
-> McpInitializedNotificationData -> Bool
$c/= :: McpInitializedNotificationData
-> McpInitializedNotificationData -> Bool
/= :: McpInitializedNotificationData
-> McpInitializedNotificationData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializedNotificationData", omitNothingFields = True} ''McpInitializedNotificationData)
makeLenses ''McpInitializedNotificationData

instance Default McpInitializedNotificationData where
  def :: McpInitializedNotificationData
def = McpInitializedNotificationData {
        _jsonrpcMcpInitializedNotificationData :: JsonRpcRequest
_jsonrpcMcpInitializedNotificationData = JsonRpcRequest
forall a. Default a => a
def
      }


-- |
--
data McpCancelledNotificationDataParams =
  McpCancelledNotificationDataParams {
    McpCancelledNotificationDataParams -> Int
_requestIdMcpCancelledNotificationDataParams :: Int
  } deriving (Int -> McpCancelledNotificationDataParams -> String -> String
[McpCancelledNotificationDataParams] -> String -> String
McpCancelledNotificationDataParams -> String
(Int -> McpCancelledNotificationDataParams -> String -> String)
-> (McpCancelledNotificationDataParams -> String)
-> ([McpCancelledNotificationDataParams] -> String -> String)
-> Show McpCancelledNotificationDataParams
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpCancelledNotificationDataParams -> String -> String
showsPrec :: Int -> McpCancelledNotificationDataParams -> String -> String
$cshow :: McpCancelledNotificationDataParams -> String
show :: McpCancelledNotificationDataParams -> String
$cshowList :: [McpCancelledNotificationDataParams] -> String -> String
showList :: [McpCancelledNotificationDataParams] -> String -> String
Show, ReadPrec [McpCancelledNotificationDataParams]
ReadPrec McpCancelledNotificationDataParams
Int -> ReadS McpCancelledNotificationDataParams
ReadS [McpCancelledNotificationDataParams]
(Int -> ReadS McpCancelledNotificationDataParams)
-> ReadS [McpCancelledNotificationDataParams]
-> ReadPrec McpCancelledNotificationDataParams
-> ReadPrec [McpCancelledNotificationDataParams]
-> Read McpCancelledNotificationDataParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpCancelledNotificationDataParams
readsPrec :: Int -> ReadS McpCancelledNotificationDataParams
$creadList :: ReadS [McpCancelledNotificationDataParams]
readList :: ReadS [McpCancelledNotificationDataParams]
$creadPrec :: ReadPrec McpCancelledNotificationDataParams
readPrec :: ReadPrec McpCancelledNotificationDataParams
$creadListPrec :: ReadPrec [McpCancelledNotificationDataParams]
readListPrec :: ReadPrec [McpCancelledNotificationDataParams]
Read, McpCancelledNotificationDataParams
-> McpCancelledNotificationDataParams -> Bool
(McpCancelledNotificationDataParams
 -> McpCancelledNotificationDataParams -> Bool)
-> (McpCancelledNotificationDataParams
    -> McpCancelledNotificationDataParams -> Bool)
-> Eq McpCancelledNotificationDataParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpCancelledNotificationDataParams
-> McpCancelledNotificationDataParams -> Bool
== :: McpCancelledNotificationDataParams
-> McpCancelledNotificationDataParams -> Bool
$c/= :: McpCancelledNotificationDataParams
-> McpCancelledNotificationDataParams -> Bool
/= :: McpCancelledNotificationDataParams
-> McpCancelledNotificationDataParams -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpCancelledNotificationDataParams", omitNothingFields = True} ''McpCancelledNotificationDataParams)
makeLenses ''McpCancelledNotificationDataParams

instance Default McpCancelledNotificationDataParams where
  def :: McpCancelledNotificationDataParams
def = McpCancelledNotificationDataParams {
        _requestIdMcpCancelledNotificationDataParams :: Int
_requestIdMcpCancelledNotificationDataParams = Int
forall a. Default a => a
def
      }

-- |
--
data McpCancelledNotificationData =
  McpCancelledNotificationData {
    McpCancelledNotificationData -> JsonRpcRequest
_jsonrpcMcpCancelledNotificationData :: JsonRpcRequest
  , McpCancelledNotificationData -> McpCancelledNotificationDataParams
_paramsMcpCancelledNotificationData  :: McpCancelledNotificationDataParams
  } deriving (Int -> McpCancelledNotificationData -> String -> String
[McpCancelledNotificationData] -> String -> String
McpCancelledNotificationData -> String
(Int -> McpCancelledNotificationData -> String -> String)
-> (McpCancelledNotificationData -> String)
-> ([McpCancelledNotificationData] -> String -> String)
-> Show McpCancelledNotificationData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpCancelledNotificationData -> String -> String
showsPrec :: Int -> McpCancelledNotificationData -> String -> String
$cshow :: McpCancelledNotificationData -> String
show :: McpCancelledNotificationData -> String
$cshowList :: [McpCancelledNotificationData] -> String -> String
showList :: [McpCancelledNotificationData] -> String -> String
Show, ReadPrec [McpCancelledNotificationData]
ReadPrec McpCancelledNotificationData
Int -> ReadS McpCancelledNotificationData
ReadS [McpCancelledNotificationData]
(Int -> ReadS McpCancelledNotificationData)
-> ReadS [McpCancelledNotificationData]
-> ReadPrec McpCancelledNotificationData
-> ReadPrec [McpCancelledNotificationData]
-> Read McpCancelledNotificationData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpCancelledNotificationData
readsPrec :: Int -> ReadS McpCancelledNotificationData
$creadList :: ReadS [McpCancelledNotificationData]
readList :: ReadS [McpCancelledNotificationData]
$creadPrec :: ReadPrec McpCancelledNotificationData
readPrec :: ReadPrec McpCancelledNotificationData
$creadListPrec :: ReadPrec [McpCancelledNotificationData]
readListPrec :: ReadPrec [McpCancelledNotificationData]
Read, McpCancelledNotificationData
-> McpCancelledNotificationData -> Bool
(McpCancelledNotificationData
 -> McpCancelledNotificationData -> Bool)
-> (McpCancelledNotificationData
    -> McpCancelledNotificationData -> Bool)
-> Eq McpCancelledNotificationData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpCancelledNotificationData
-> McpCancelledNotificationData -> Bool
== :: McpCancelledNotificationData
-> McpCancelledNotificationData -> Bool
$c/= :: McpCancelledNotificationData
-> McpCancelledNotificationData -> Bool
/= :: McpCancelledNotificationData
-> McpCancelledNotificationData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpCancelledNotificationData", omitNothingFields = True} ''McpCancelledNotificationData)
makeLenses ''McpCancelledNotificationData

instance Default McpCancelledNotificationData where
  def :: McpCancelledNotificationData
def = McpCancelledNotificationData {
        _jsonrpcMcpCancelledNotificationData :: JsonRpcRequest
_jsonrpcMcpCancelledNotificationData = JsonRpcRequest
forall a. Default a => a
def
      , _paramsMcpCancelledNotificationData :: McpCancelledNotificationDataParams
_paramsMcpCancelledNotificationData  = McpCancelledNotificationDataParams
forall a. Default a => a
def
      }



-- |
--
data McpCompletionCompleteRequestDataParams =
  McpCompletionCompleteRequestDataParams {
    McpCompletionCompleteRequestDataParams -> RawJsonByteString
_refMcpCompletionCompleteRequestDataParams :: RawJsonByteString
  , McpCompletionCompleteRequestDataParams -> RawJsonByteString
_argumentMcpCompletionCompleteRequestDataParams  :: RawJsonByteString
  , McpCompletionCompleteRequestDataParams -> RawJsonByteString
_contextMcpCompletionCompleteRequestDataParams  :: RawJsonByteString
  } deriving (Int -> McpCompletionCompleteRequestDataParams -> String -> String
[McpCompletionCompleteRequestDataParams] -> String -> String
McpCompletionCompleteRequestDataParams -> String
(Int -> McpCompletionCompleteRequestDataParams -> String -> String)
-> (McpCompletionCompleteRequestDataParams -> String)
-> ([McpCompletionCompleteRequestDataParams] -> String -> String)
-> Show McpCompletionCompleteRequestDataParams
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpCompletionCompleteRequestDataParams -> String -> String
showsPrec :: Int -> McpCompletionCompleteRequestDataParams -> String -> String
$cshow :: McpCompletionCompleteRequestDataParams -> String
show :: McpCompletionCompleteRequestDataParams -> String
$cshowList :: [McpCompletionCompleteRequestDataParams] -> String -> String
showList :: [McpCompletionCompleteRequestDataParams] -> String -> String
Show, ReadPrec [McpCompletionCompleteRequestDataParams]
ReadPrec McpCompletionCompleteRequestDataParams
Int -> ReadS McpCompletionCompleteRequestDataParams
ReadS [McpCompletionCompleteRequestDataParams]
(Int -> ReadS McpCompletionCompleteRequestDataParams)
-> ReadS [McpCompletionCompleteRequestDataParams]
-> ReadPrec McpCompletionCompleteRequestDataParams
-> ReadPrec [McpCompletionCompleteRequestDataParams]
-> Read McpCompletionCompleteRequestDataParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpCompletionCompleteRequestDataParams
readsPrec :: Int -> ReadS McpCompletionCompleteRequestDataParams
$creadList :: ReadS [McpCompletionCompleteRequestDataParams]
readList :: ReadS [McpCompletionCompleteRequestDataParams]
$creadPrec :: ReadPrec McpCompletionCompleteRequestDataParams
readPrec :: ReadPrec McpCompletionCompleteRequestDataParams
$creadListPrec :: ReadPrec [McpCompletionCompleteRequestDataParams]
readListPrec :: ReadPrec [McpCompletionCompleteRequestDataParams]
Read, McpCompletionCompleteRequestDataParams
-> McpCompletionCompleteRequestDataParams -> Bool
(McpCompletionCompleteRequestDataParams
 -> McpCompletionCompleteRequestDataParams -> Bool)
-> (McpCompletionCompleteRequestDataParams
    -> McpCompletionCompleteRequestDataParams -> Bool)
-> Eq McpCompletionCompleteRequestDataParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpCompletionCompleteRequestDataParams
-> McpCompletionCompleteRequestDataParams -> Bool
== :: McpCompletionCompleteRequestDataParams
-> McpCompletionCompleteRequestDataParams -> Bool
$c/= :: McpCompletionCompleteRequestDataParams
-> McpCompletionCompleteRequestDataParams -> Bool
/= :: McpCompletionCompleteRequestDataParams
-> McpCompletionCompleteRequestDataParams -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpCompletionCompleteRequestDataParams", omitNothingFields = True} ''McpCompletionCompleteRequestDataParams)
makeLenses ''McpCompletionCompleteRequestDataParams

instance Default McpCompletionCompleteRequestDataParams where
  def :: McpCompletionCompleteRequestDataParams
def = McpCompletionCompleteRequestDataParams {
        _refMcpCompletionCompleteRequestDataParams :: RawJsonByteString
_refMcpCompletionCompleteRequestDataParams = RawJsonByteString
forall a. Default a => a
def
      , _argumentMcpCompletionCompleteRequestDataParams :: RawJsonByteString
_argumentMcpCompletionCompleteRequestDataParams  = RawJsonByteString
forall a. Default a => a
def
      , _contextMcpCompletionCompleteRequestDataParams :: RawJsonByteString
_contextMcpCompletionCompleteRequestDataParams  = RawJsonByteString
forall a. Default a => a
def
      }

-- |
--
data McpCompletionCompleteRequestData =
  McpCompletionCompleteRequestData {
    McpCompletionCompleteRequestData -> JsonRpcRequest
_jsonrpcMcpCompletionCompleteRequestData :: JsonRpcRequest
  , McpCompletionCompleteRequestData
-> McpCompletionCompleteRequestDataParams
_paramsMcpCompletionCompleteRequestData  :: McpCompletionCompleteRequestDataParams
  } deriving (Int -> McpCompletionCompleteRequestData -> String -> String
[McpCompletionCompleteRequestData] -> String -> String
McpCompletionCompleteRequestData -> String
(Int -> McpCompletionCompleteRequestData -> String -> String)
-> (McpCompletionCompleteRequestData -> String)
-> ([McpCompletionCompleteRequestData] -> String -> String)
-> Show McpCompletionCompleteRequestData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpCompletionCompleteRequestData -> String -> String
showsPrec :: Int -> McpCompletionCompleteRequestData -> String -> String
$cshow :: McpCompletionCompleteRequestData -> String
show :: McpCompletionCompleteRequestData -> String
$cshowList :: [McpCompletionCompleteRequestData] -> String -> String
showList :: [McpCompletionCompleteRequestData] -> String -> String
Show, ReadPrec [McpCompletionCompleteRequestData]
ReadPrec McpCompletionCompleteRequestData
Int -> ReadS McpCompletionCompleteRequestData
ReadS [McpCompletionCompleteRequestData]
(Int -> ReadS McpCompletionCompleteRequestData)
-> ReadS [McpCompletionCompleteRequestData]
-> ReadPrec McpCompletionCompleteRequestData
-> ReadPrec [McpCompletionCompleteRequestData]
-> Read McpCompletionCompleteRequestData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpCompletionCompleteRequestData
readsPrec :: Int -> ReadS McpCompletionCompleteRequestData
$creadList :: ReadS [McpCompletionCompleteRequestData]
readList :: ReadS [McpCompletionCompleteRequestData]
$creadPrec :: ReadPrec McpCompletionCompleteRequestData
readPrec :: ReadPrec McpCompletionCompleteRequestData
$creadListPrec :: ReadPrec [McpCompletionCompleteRequestData]
readListPrec :: ReadPrec [McpCompletionCompleteRequestData]
Read, McpCompletionCompleteRequestData
-> McpCompletionCompleteRequestData -> Bool
(McpCompletionCompleteRequestData
 -> McpCompletionCompleteRequestData -> Bool)
-> (McpCompletionCompleteRequestData
    -> McpCompletionCompleteRequestData -> Bool)
-> Eq McpCompletionCompleteRequestData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpCompletionCompleteRequestData
-> McpCompletionCompleteRequestData -> Bool
== :: McpCompletionCompleteRequestData
-> McpCompletionCompleteRequestData -> Bool
$c/= :: McpCompletionCompleteRequestData
-> McpCompletionCompleteRequestData -> Bool
/= :: McpCompletionCompleteRequestData
-> McpCompletionCompleteRequestData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpCompletionCompleteRequestData", omitNothingFields = True} ''McpCompletionCompleteRequestData)
makeLenses ''McpCompletionCompleteRequestData

instance Default McpCompletionCompleteRequestData where
  def :: McpCompletionCompleteRequestData
def = McpCompletionCompleteRequestData {
        _jsonrpcMcpCompletionCompleteRequestData :: JsonRpcRequest
_jsonrpcMcpCompletionCompleteRequestData = JsonRpcRequest
forall a. Default a => a
def
      , _paramsMcpCompletionCompleteRequestData :: McpCompletionCompleteRequestDataParams
_paramsMcpCompletionCompleteRequestData  = McpCompletionCompleteRequestDataParams
forall a. Default a => a
def
      }


-- |
--
data McpRequest =
    McpInitializeRequest McpInitializeRequestData
  | McpToolsListRequest McpToolsListRequestData
  | McpToolsCallRequest McpToolsCallRequestData
  | McpPromptsListRequest McpPromptsListRequestData
  | McpPromptsGetRequest McpPromptsGetRequestData
  | McpResourcesTemplatesListRequest McpResourcesTemplatesListRequestData
  | McpResourcesListRequest McpResourcesListRequestData
  | McpResourcesReadRequest McpResourcesReadRequestData
  | McpInitializedNotification McpInitializedNotificationData
  | McpCancelledNotification McpCancelledNotificationData
  | McpCompletionCompleteRequest McpCompletionCompleteRequestData
  deriving (Int -> McpRequest -> String -> String
[McpRequest] -> String -> String
McpRequest -> String
(Int -> McpRequest -> String -> String)
-> (McpRequest -> String)
-> ([McpRequest] -> String -> String)
-> Show McpRequest
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpRequest -> String -> String
showsPrec :: Int -> McpRequest -> String -> String
$cshow :: McpRequest -> String
show :: McpRequest -> String
$cshowList :: [McpRequest] -> String -> String
showList :: [McpRequest] -> String -> String
Show, ReadPrec [McpRequest]
ReadPrec McpRequest
Int -> ReadS McpRequest
ReadS [McpRequest]
(Int -> ReadS McpRequest)
-> ReadS [McpRequest]
-> ReadPrec McpRequest
-> ReadPrec [McpRequest]
-> Read McpRequest
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpRequest
readsPrec :: Int -> ReadS McpRequest
$creadList :: ReadS [McpRequest]
readList :: ReadS [McpRequest]
$creadPrec :: ReadPrec McpRequest
readPrec :: ReadPrec McpRequest
$creadListPrec :: ReadPrec [McpRequest]
readListPrec :: ReadPrec [McpRequest]
Read, McpRequest -> McpRequest -> Bool
(McpRequest -> McpRequest -> Bool)
-> (McpRequest -> McpRequest -> Bool) -> Eq McpRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpRequest -> McpRequest -> Bool
== :: McpRequest -> McpRequest -> Bool
$c/= :: McpRequest -> McpRequest -> Bool
/= :: McpRequest -> McpRequest -> Bool
Eq)

--------------------------------------------------------------------------------
-- |
--
data McpInitializeResponseResultCapabilitiesResources =
  McpInitializeResponseResultCapabilitiesResources {
    McpInitializeResponseResultCapabilitiesResources -> Bool
_subscribedMcpInitializeResponseResultCapabilitiesResources :: Bool
  , McpInitializeResponseResultCapabilitiesResources -> Bool
_listChangedMcpInitializeResponseResultCapabilitiesResources :: Bool
  } deriving (Int
-> McpInitializeResponseResultCapabilitiesResources
-> String
-> String
[McpInitializeResponseResultCapabilitiesResources]
-> String -> String
McpInitializeResponseResultCapabilitiesResources -> String
(Int
 -> McpInitializeResponseResultCapabilitiesResources
 -> String
 -> String)
-> (McpInitializeResponseResultCapabilitiesResources -> String)
-> ([McpInitializeResponseResultCapabilitiesResources]
    -> String -> String)
-> Show McpInitializeResponseResultCapabilitiesResources
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int
-> McpInitializeResponseResultCapabilitiesResources
-> String
-> String
showsPrec :: Int
-> McpInitializeResponseResultCapabilitiesResources
-> String
-> String
$cshow :: McpInitializeResponseResultCapabilitiesResources -> String
show :: McpInitializeResponseResultCapabilitiesResources -> String
$cshowList :: [McpInitializeResponseResultCapabilitiesResources]
-> String -> String
showList :: [McpInitializeResponseResultCapabilitiesResources]
-> String -> String
Show, ReadPrec [McpInitializeResponseResultCapabilitiesResources]
ReadPrec McpInitializeResponseResultCapabilitiesResources
Int -> ReadS McpInitializeResponseResultCapabilitiesResources
ReadS [McpInitializeResponseResultCapabilitiesResources]
(Int -> ReadS McpInitializeResponseResultCapabilitiesResources)
-> ReadS [McpInitializeResponseResultCapabilitiesResources]
-> ReadPrec McpInitializeResponseResultCapabilitiesResources
-> ReadPrec [McpInitializeResponseResultCapabilitiesResources]
-> Read McpInitializeResponseResultCapabilitiesResources
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializeResponseResultCapabilitiesResources
readsPrec :: Int -> ReadS McpInitializeResponseResultCapabilitiesResources
$creadList :: ReadS [McpInitializeResponseResultCapabilitiesResources]
readList :: ReadS [McpInitializeResponseResultCapabilitiesResources]
$creadPrec :: ReadPrec McpInitializeResponseResultCapabilitiesResources
readPrec :: ReadPrec McpInitializeResponseResultCapabilitiesResources
$creadListPrec :: ReadPrec [McpInitializeResponseResultCapabilitiesResources]
readListPrec :: ReadPrec [McpInitializeResponseResultCapabilitiesResources]
Read, McpInitializeResponseResultCapabilitiesResources
-> McpInitializeResponseResultCapabilitiesResources -> Bool
(McpInitializeResponseResultCapabilitiesResources
 -> McpInitializeResponseResultCapabilitiesResources -> Bool)
-> (McpInitializeResponseResultCapabilitiesResources
    -> McpInitializeResponseResultCapabilitiesResources -> Bool)
-> Eq McpInitializeResponseResultCapabilitiesResources
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializeResponseResultCapabilitiesResources
-> McpInitializeResponseResultCapabilitiesResources -> Bool
== :: McpInitializeResponseResultCapabilitiesResources
-> McpInitializeResponseResultCapabilitiesResources -> Bool
$c/= :: McpInitializeResponseResultCapabilitiesResources
-> McpInitializeResponseResultCapabilitiesResources -> Bool
/= :: McpInitializeResponseResultCapabilitiesResources
-> McpInitializeResponseResultCapabilitiesResources -> Bool
Eq)
$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializeResponseResultCapabilitiesResources", omitNothingFields = True} ''McpInitializeResponseResultCapabilitiesResources)
makeLenses ''McpInitializeResponseResultCapabilitiesResources

instance Default McpInitializeResponseResultCapabilitiesResources where
  def :: McpInitializeResponseResultCapabilitiesResources
def = McpInitializeResponseResultCapabilitiesResources {
        _subscribedMcpInitializeResponseResultCapabilitiesResources :: Bool
_subscribedMcpInitializeResponseResultCapabilitiesResources = Bool
False
      , _listChangedMcpInitializeResponseResultCapabilitiesResources :: Bool
_listChangedMcpInitializeResponseResultCapabilitiesResources = Bool
True
      }


data McpInitializeResponseResultCapabilitiesPrompts =
  McpInitializeResponseResultCapabilitiesPrompts {
    McpInitializeResponseResultCapabilitiesPrompts -> Bool
_listChangedMcpInitializeResponseResultCapabilitiesPrompts :: Bool
  } deriving (Int
-> McpInitializeResponseResultCapabilitiesPrompts
-> String
-> String
[McpInitializeResponseResultCapabilitiesPrompts]
-> String -> String
McpInitializeResponseResultCapabilitiesPrompts -> String
(Int
 -> McpInitializeResponseResultCapabilitiesPrompts
 -> String
 -> String)
-> (McpInitializeResponseResultCapabilitiesPrompts -> String)
-> ([McpInitializeResponseResultCapabilitiesPrompts]
    -> String -> String)
-> Show McpInitializeResponseResultCapabilitiesPrompts
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int
-> McpInitializeResponseResultCapabilitiesPrompts
-> String
-> String
showsPrec :: Int
-> McpInitializeResponseResultCapabilitiesPrompts
-> String
-> String
$cshow :: McpInitializeResponseResultCapabilitiesPrompts -> String
show :: McpInitializeResponseResultCapabilitiesPrompts -> String
$cshowList :: [McpInitializeResponseResultCapabilitiesPrompts]
-> String -> String
showList :: [McpInitializeResponseResultCapabilitiesPrompts]
-> String -> String
Show, ReadPrec [McpInitializeResponseResultCapabilitiesPrompts]
ReadPrec McpInitializeResponseResultCapabilitiesPrompts
Int -> ReadS McpInitializeResponseResultCapabilitiesPrompts
ReadS [McpInitializeResponseResultCapabilitiesPrompts]
(Int -> ReadS McpInitializeResponseResultCapabilitiesPrompts)
-> ReadS [McpInitializeResponseResultCapabilitiesPrompts]
-> ReadPrec McpInitializeResponseResultCapabilitiesPrompts
-> ReadPrec [McpInitializeResponseResultCapabilitiesPrompts]
-> Read McpInitializeResponseResultCapabilitiesPrompts
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializeResponseResultCapabilitiesPrompts
readsPrec :: Int -> ReadS McpInitializeResponseResultCapabilitiesPrompts
$creadList :: ReadS [McpInitializeResponseResultCapabilitiesPrompts]
readList :: ReadS [McpInitializeResponseResultCapabilitiesPrompts]
$creadPrec :: ReadPrec McpInitializeResponseResultCapabilitiesPrompts
readPrec :: ReadPrec McpInitializeResponseResultCapabilitiesPrompts
$creadListPrec :: ReadPrec [McpInitializeResponseResultCapabilitiesPrompts]
readListPrec :: ReadPrec [McpInitializeResponseResultCapabilitiesPrompts]
Read, McpInitializeResponseResultCapabilitiesPrompts
-> McpInitializeResponseResultCapabilitiesPrompts -> Bool
(McpInitializeResponseResultCapabilitiesPrompts
 -> McpInitializeResponseResultCapabilitiesPrompts -> Bool)
-> (McpInitializeResponseResultCapabilitiesPrompts
    -> McpInitializeResponseResultCapabilitiesPrompts -> Bool)
-> Eq McpInitializeResponseResultCapabilitiesPrompts
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializeResponseResultCapabilitiesPrompts
-> McpInitializeResponseResultCapabilitiesPrompts -> Bool
== :: McpInitializeResponseResultCapabilitiesPrompts
-> McpInitializeResponseResultCapabilitiesPrompts -> Bool
$c/= :: McpInitializeResponseResultCapabilitiesPrompts
-> McpInitializeResponseResultCapabilitiesPrompts -> Bool
/= :: McpInitializeResponseResultCapabilitiesPrompts
-> McpInitializeResponseResultCapabilitiesPrompts -> Bool
Eq)
$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializeResponseResultCapabilitiesPrompts", omitNothingFields = True} ''McpInitializeResponseResultCapabilitiesPrompts)
makeLenses ''McpInitializeResponseResultCapabilitiesPrompts

instance Default McpInitializeResponseResultCapabilitiesPrompts where
  def :: McpInitializeResponseResultCapabilitiesPrompts
def = McpInitializeResponseResultCapabilitiesPrompts {
        _listChangedMcpInitializeResponseResultCapabilitiesPrompts :: Bool
_listChangedMcpInitializeResponseResultCapabilitiesPrompts = Bool
True
      }

-- |
--
data McpInitializeResponseResultCapabilitiesTools =
  McpInitializeResponseResultCapabilitiesTools {
    McpInitializeResponseResultCapabilitiesTools -> Bool
_listChangedMcpInitializeResponseResultCapabilitiesTools :: Bool
  } deriving (Int
-> McpInitializeResponseResultCapabilitiesTools -> String -> String
[McpInitializeResponseResultCapabilitiesTools] -> String -> String
McpInitializeResponseResultCapabilitiesTools -> String
(Int
 -> McpInitializeResponseResultCapabilitiesTools
 -> String
 -> String)
-> (McpInitializeResponseResultCapabilitiesTools -> String)
-> ([McpInitializeResponseResultCapabilitiesTools]
    -> String -> String)
-> Show McpInitializeResponseResultCapabilitiesTools
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int
-> McpInitializeResponseResultCapabilitiesTools -> String -> String
showsPrec :: Int
-> McpInitializeResponseResultCapabilitiesTools -> String -> String
$cshow :: McpInitializeResponseResultCapabilitiesTools -> String
show :: McpInitializeResponseResultCapabilitiesTools -> String
$cshowList :: [McpInitializeResponseResultCapabilitiesTools] -> String -> String
showList :: [McpInitializeResponseResultCapabilitiesTools] -> String -> String
Show, ReadPrec [McpInitializeResponseResultCapabilitiesTools]
ReadPrec McpInitializeResponseResultCapabilitiesTools
Int -> ReadS McpInitializeResponseResultCapabilitiesTools
ReadS [McpInitializeResponseResultCapabilitiesTools]
(Int -> ReadS McpInitializeResponseResultCapabilitiesTools)
-> ReadS [McpInitializeResponseResultCapabilitiesTools]
-> ReadPrec McpInitializeResponseResultCapabilitiesTools
-> ReadPrec [McpInitializeResponseResultCapabilitiesTools]
-> Read McpInitializeResponseResultCapabilitiesTools
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializeResponseResultCapabilitiesTools
readsPrec :: Int -> ReadS McpInitializeResponseResultCapabilitiesTools
$creadList :: ReadS [McpInitializeResponseResultCapabilitiesTools]
readList :: ReadS [McpInitializeResponseResultCapabilitiesTools]
$creadPrec :: ReadPrec McpInitializeResponseResultCapabilitiesTools
readPrec :: ReadPrec McpInitializeResponseResultCapabilitiesTools
$creadListPrec :: ReadPrec [McpInitializeResponseResultCapabilitiesTools]
readListPrec :: ReadPrec [McpInitializeResponseResultCapabilitiesTools]
Read, McpInitializeResponseResultCapabilitiesTools
-> McpInitializeResponseResultCapabilitiesTools -> Bool
(McpInitializeResponseResultCapabilitiesTools
 -> McpInitializeResponseResultCapabilitiesTools -> Bool)
-> (McpInitializeResponseResultCapabilitiesTools
    -> McpInitializeResponseResultCapabilitiesTools -> Bool)
-> Eq McpInitializeResponseResultCapabilitiesTools
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializeResponseResultCapabilitiesTools
-> McpInitializeResponseResultCapabilitiesTools -> Bool
== :: McpInitializeResponseResultCapabilitiesTools
-> McpInitializeResponseResultCapabilitiesTools -> Bool
$c/= :: McpInitializeResponseResultCapabilitiesTools
-> McpInitializeResponseResultCapabilitiesTools -> Bool
/= :: McpInitializeResponseResultCapabilitiesTools
-> McpInitializeResponseResultCapabilitiesTools -> Bool
Eq)
$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializeResponseResultCapabilitiesTools", omitNothingFields = True} ''McpInitializeResponseResultCapabilitiesTools)
makeLenses ''McpInitializeResponseResultCapabilitiesTools

instance Default McpInitializeResponseResultCapabilitiesTools where
  def :: McpInitializeResponseResultCapabilitiesTools
def = McpInitializeResponseResultCapabilitiesTools {
        _listChangedMcpInitializeResponseResultCapabilitiesTools :: Bool
_listChangedMcpInitializeResponseResultCapabilitiesTools = Bool
True
      }

-- |
--
data McpInitializeResponseResultCapabilities =
  McpInitializeResponseResultCapabilities {
    McpInitializeResponseResultCapabilities
-> McpInitializeResponseResultCapabilitiesTools
_toolsMcpInitializeResponseResultCapabilities :: McpInitializeResponseResultCapabilitiesTools
  , McpInitializeResponseResultCapabilities
-> McpInitializeResponseResultCapabilitiesPrompts
_promptsMcpInitializeResponseResultCapabilities :: McpInitializeResponseResultCapabilitiesPrompts
  , McpInitializeResponseResultCapabilities
-> McpInitializeResponseResultCapabilitiesResources
_resourcesMcpInitializeResponseResultCapabilities :: McpInitializeResponseResultCapabilitiesResources
  } deriving (Int -> McpInitializeResponseResultCapabilities -> String -> String
[McpInitializeResponseResultCapabilities] -> String -> String
McpInitializeResponseResultCapabilities -> String
(Int
 -> McpInitializeResponseResultCapabilities -> String -> String)
-> (McpInitializeResponseResultCapabilities -> String)
-> ([McpInitializeResponseResultCapabilities] -> String -> String)
-> Show McpInitializeResponseResultCapabilities
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpInitializeResponseResultCapabilities -> String -> String
showsPrec :: Int -> McpInitializeResponseResultCapabilities -> String -> String
$cshow :: McpInitializeResponseResultCapabilities -> String
show :: McpInitializeResponseResultCapabilities -> String
$cshowList :: [McpInitializeResponseResultCapabilities] -> String -> String
showList :: [McpInitializeResponseResultCapabilities] -> String -> String
Show, ReadPrec [McpInitializeResponseResultCapabilities]
ReadPrec McpInitializeResponseResultCapabilities
Int -> ReadS McpInitializeResponseResultCapabilities
ReadS [McpInitializeResponseResultCapabilities]
(Int -> ReadS McpInitializeResponseResultCapabilities)
-> ReadS [McpInitializeResponseResultCapabilities]
-> ReadPrec McpInitializeResponseResultCapabilities
-> ReadPrec [McpInitializeResponseResultCapabilities]
-> Read McpInitializeResponseResultCapabilities
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializeResponseResultCapabilities
readsPrec :: Int -> ReadS McpInitializeResponseResultCapabilities
$creadList :: ReadS [McpInitializeResponseResultCapabilities]
readList :: ReadS [McpInitializeResponseResultCapabilities]
$creadPrec :: ReadPrec McpInitializeResponseResultCapabilities
readPrec :: ReadPrec McpInitializeResponseResultCapabilities
$creadListPrec :: ReadPrec [McpInitializeResponseResultCapabilities]
readListPrec :: ReadPrec [McpInitializeResponseResultCapabilities]
Read, McpInitializeResponseResultCapabilities
-> McpInitializeResponseResultCapabilities -> Bool
(McpInitializeResponseResultCapabilities
 -> McpInitializeResponseResultCapabilities -> Bool)
-> (McpInitializeResponseResultCapabilities
    -> McpInitializeResponseResultCapabilities -> Bool)
-> Eq McpInitializeResponseResultCapabilities
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializeResponseResultCapabilities
-> McpInitializeResponseResultCapabilities -> Bool
== :: McpInitializeResponseResultCapabilities
-> McpInitializeResponseResultCapabilities -> Bool
$c/= :: McpInitializeResponseResultCapabilities
-> McpInitializeResponseResultCapabilities -> Bool
/= :: McpInitializeResponseResultCapabilities
-> McpInitializeResponseResultCapabilities -> Bool
Eq)
$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializeResponseResultCapabilities", omitNothingFields = True} ''McpInitializeResponseResultCapabilities)
makeLenses ''McpInitializeResponseResultCapabilities

instance Default McpInitializeResponseResultCapabilities where
  def :: McpInitializeResponseResultCapabilities
def = McpInitializeResponseResultCapabilities {
        _toolsMcpInitializeResponseResultCapabilities :: McpInitializeResponseResultCapabilitiesTools
_toolsMcpInitializeResponseResultCapabilities = McpInitializeResponseResultCapabilitiesTools
forall a. Default a => a
def
      , _promptsMcpInitializeResponseResultCapabilities :: McpInitializeResponseResultCapabilitiesPrompts
_promptsMcpInitializeResponseResultCapabilities = McpInitializeResponseResultCapabilitiesPrompts
forall a. Default a => a
def
      , _resourcesMcpInitializeResponseResultCapabilities :: McpInitializeResponseResultCapabilitiesResources
_resourcesMcpInitializeResponseResultCapabilities = McpInitializeResponseResultCapabilitiesResources
forall a. Default a => a
def
      }

-- |
--
data McpInitializeResponseResultServerInfo =
  McpInitializeResponseResultServerInfo {
    McpInitializeResponseResultServerInfo -> String
_nameMcpInitializeResponseResultServerInfo    :: String
  , McpInitializeResponseResultServerInfo -> String
_versionMcpInitializeResponseResultServerInfo :: String
  } deriving (Int -> McpInitializeResponseResultServerInfo -> String -> String
[McpInitializeResponseResultServerInfo] -> String -> String
McpInitializeResponseResultServerInfo -> String
(Int -> McpInitializeResponseResultServerInfo -> String -> String)
-> (McpInitializeResponseResultServerInfo -> String)
-> ([McpInitializeResponseResultServerInfo] -> String -> String)
-> Show McpInitializeResponseResultServerInfo
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpInitializeResponseResultServerInfo -> String -> String
showsPrec :: Int -> McpInitializeResponseResultServerInfo -> String -> String
$cshow :: McpInitializeResponseResultServerInfo -> String
show :: McpInitializeResponseResultServerInfo -> String
$cshowList :: [McpInitializeResponseResultServerInfo] -> String -> String
showList :: [McpInitializeResponseResultServerInfo] -> String -> String
Show, ReadPrec [McpInitializeResponseResultServerInfo]
ReadPrec McpInitializeResponseResultServerInfo
Int -> ReadS McpInitializeResponseResultServerInfo
ReadS [McpInitializeResponseResultServerInfo]
(Int -> ReadS McpInitializeResponseResultServerInfo)
-> ReadS [McpInitializeResponseResultServerInfo]
-> ReadPrec McpInitializeResponseResultServerInfo
-> ReadPrec [McpInitializeResponseResultServerInfo]
-> Read McpInitializeResponseResultServerInfo
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializeResponseResultServerInfo
readsPrec :: Int -> ReadS McpInitializeResponseResultServerInfo
$creadList :: ReadS [McpInitializeResponseResultServerInfo]
readList :: ReadS [McpInitializeResponseResultServerInfo]
$creadPrec :: ReadPrec McpInitializeResponseResultServerInfo
readPrec :: ReadPrec McpInitializeResponseResultServerInfo
$creadListPrec :: ReadPrec [McpInitializeResponseResultServerInfo]
readListPrec :: ReadPrec [McpInitializeResponseResultServerInfo]
Read, McpInitializeResponseResultServerInfo
-> McpInitializeResponseResultServerInfo -> Bool
(McpInitializeResponseResultServerInfo
 -> McpInitializeResponseResultServerInfo -> Bool)
-> (McpInitializeResponseResultServerInfo
    -> McpInitializeResponseResultServerInfo -> Bool)
-> Eq McpInitializeResponseResultServerInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializeResponseResultServerInfo
-> McpInitializeResponseResultServerInfo -> Bool
== :: McpInitializeResponseResultServerInfo
-> McpInitializeResponseResultServerInfo -> Bool
$c/= :: McpInitializeResponseResultServerInfo
-> McpInitializeResponseResultServerInfo -> Bool
/= :: McpInitializeResponseResultServerInfo
-> McpInitializeResponseResultServerInfo -> Bool
Eq)
$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializeResponseResultServerInfo", omitNothingFields = True} ''McpInitializeResponseResultServerInfo)
makeLenses ''McpInitializeResponseResultServerInfo

instance Default McpInitializeResponseResultServerInfo where
  def :: McpInitializeResponseResultServerInfo
def = McpInitializeResponseResultServerInfo {
        _nameMcpInitializeResponseResultServerInfo :: String
_nameMcpInitializeResponseResultServerInfo = String
"pty-mcp-server"
      , _versionMcpInitializeResponseResultServerInfo :: String
_versionMcpInitializeResponseResultServerInfo = String
"0.0.4"
      }

-- |
--
data McpInitializeResponseResult =
  McpInitializeResponseResult {
    McpInitializeResponseResult -> String
_protocolVersionMcpInitializeResponseResult :: String
  , McpInitializeResponseResult
-> McpInitializeResponseResultCapabilities
_capabilitiesMcpInitializeResponseResult    :: McpInitializeResponseResultCapabilities
  , McpInitializeResponseResult
-> McpInitializeResponseResultServerInfo
_serverInfoMcpInitializeResponseResult      :: McpInitializeResponseResultServerInfo
  , McpInitializeResponseResult -> String
_instructionsMcpInitializeResponseResult    :: String
  } deriving (Int -> McpInitializeResponseResult -> String -> String
[McpInitializeResponseResult] -> String -> String
McpInitializeResponseResult -> String
(Int -> McpInitializeResponseResult -> String -> String)
-> (McpInitializeResponseResult -> String)
-> ([McpInitializeResponseResult] -> String -> String)
-> Show McpInitializeResponseResult
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpInitializeResponseResult -> String -> String
showsPrec :: Int -> McpInitializeResponseResult -> String -> String
$cshow :: McpInitializeResponseResult -> String
show :: McpInitializeResponseResult -> String
$cshowList :: [McpInitializeResponseResult] -> String -> String
showList :: [McpInitializeResponseResult] -> String -> String
Show, ReadPrec [McpInitializeResponseResult]
ReadPrec McpInitializeResponseResult
Int -> ReadS McpInitializeResponseResult
ReadS [McpInitializeResponseResult]
(Int -> ReadS McpInitializeResponseResult)
-> ReadS [McpInitializeResponseResult]
-> ReadPrec McpInitializeResponseResult
-> ReadPrec [McpInitializeResponseResult]
-> Read McpInitializeResponseResult
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializeResponseResult
readsPrec :: Int -> ReadS McpInitializeResponseResult
$creadList :: ReadS [McpInitializeResponseResult]
readList :: ReadS [McpInitializeResponseResult]
$creadPrec :: ReadPrec McpInitializeResponseResult
readPrec :: ReadPrec McpInitializeResponseResult
$creadListPrec :: ReadPrec [McpInitializeResponseResult]
readListPrec :: ReadPrec [McpInitializeResponseResult]
Read, McpInitializeResponseResult -> McpInitializeResponseResult -> Bool
(McpInitializeResponseResult
 -> McpInitializeResponseResult -> Bool)
-> (McpInitializeResponseResult
    -> McpInitializeResponseResult -> Bool)
-> Eq McpInitializeResponseResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializeResponseResult -> McpInitializeResponseResult -> Bool
== :: McpInitializeResponseResult -> McpInitializeResponseResult -> Bool
$c/= :: McpInitializeResponseResult -> McpInitializeResponseResult -> Bool
/= :: McpInitializeResponseResult -> McpInitializeResponseResult -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializeResponseResult", omitNothingFields = True} ''McpInitializeResponseResult)
makeLenses ''McpInitializeResponseResult

instance Default McpInitializeResponseResult where
  def :: McpInitializeResponseResult
def = McpInitializeResponseResult {
        _protocolVersionMcpInitializeResponseResult :: String
_protocolVersionMcpInitializeResponseResult = String
"2024-11-05"
      , _capabilitiesMcpInitializeResponseResult :: McpInitializeResponseResultCapabilities
_capabilitiesMcpInitializeResponseResult = McpInitializeResponseResultCapabilities
forall a. Default a => a
def
      , _serverInfoMcpInitializeResponseResult :: McpInitializeResponseResultServerInfo
_serverInfoMcpInitializeResponseResult = McpInitializeResponseResultServerInfo
forall a. Default a => a
def
      , _instructionsMcpInitializeResponseResult :: String
_instructionsMcpInitializeResponseResult = String
forall a. Default a => a
def
      }


-- |
--
data McpInitializeResponseData =
  McpInitializeResponseData {
    McpInitializeResponseData -> JsonRpcRequest
_jsonrpcMcpInitializeResponseData :: JsonRpcRequest
  , McpInitializeResponseData -> McpInitializeResponseResult
_resultMcpInitializeResponseData  :: McpInitializeResponseResult
  } deriving (Int -> McpInitializeResponseData -> String -> String
[McpInitializeResponseData] -> String -> String
McpInitializeResponseData -> String
(Int -> McpInitializeResponseData -> String -> String)
-> (McpInitializeResponseData -> String)
-> ([McpInitializeResponseData] -> String -> String)
-> Show McpInitializeResponseData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpInitializeResponseData -> String -> String
showsPrec :: Int -> McpInitializeResponseData -> String -> String
$cshow :: McpInitializeResponseData -> String
show :: McpInitializeResponseData -> String
$cshowList :: [McpInitializeResponseData] -> String -> String
showList :: [McpInitializeResponseData] -> String -> String
Show, ReadPrec [McpInitializeResponseData]
ReadPrec McpInitializeResponseData
Int -> ReadS McpInitializeResponseData
ReadS [McpInitializeResponseData]
(Int -> ReadS McpInitializeResponseData)
-> ReadS [McpInitializeResponseData]
-> ReadPrec McpInitializeResponseData
-> ReadPrec [McpInitializeResponseData]
-> Read McpInitializeResponseData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpInitializeResponseData
readsPrec :: Int -> ReadS McpInitializeResponseData
$creadList :: ReadS [McpInitializeResponseData]
readList :: ReadS [McpInitializeResponseData]
$creadPrec :: ReadPrec McpInitializeResponseData
readPrec :: ReadPrec McpInitializeResponseData
$creadListPrec :: ReadPrec [McpInitializeResponseData]
readListPrec :: ReadPrec [McpInitializeResponseData]
Read, McpInitializeResponseData -> McpInitializeResponseData -> Bool
(McpInitializeResponseData -> McpInitializeResponseData -> Bool)
-> (McpInitializeResponseData -> McpInitializeResponseData -> Bool)
-> Eq McpInitializeResponseData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpInitializeResponseData -> McpInitializeResponseData -> Bool
== :: McpInitializeResponseData -> McpInitializeResponseData -> Bool
$c/= :: McpInitializeResponseData -> McpInitializeResponseData -> Bool
/= :: McpInitializeResponseData -> McpInitializeResponseData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpInitializeResponseData", omitNothingFields = True} ''McpInitializeResponseData)
makeLenses ''McpInitializeResponseData

instance Default McpInitializeResponseData where
  def :: McpInitializeResponseData
def = McpInitializeResponseData {
        _jsonrpcMcpInitializeResponseData :: JsonRpcRequest
_jsonrpcMcpInitializeResponseData = JsonRpcRequest
forall a. Default a => a
def
      , _resultMcpInitializeResponseData :: McpInitializeResponseResult
_resultMcpInitializeResponseData = McpInitializeResponseResult
forall a. Default a => a
def
      }


-- |
--
data McpToolsListResponseResult =
  McpToolsListResponseResult {
    McpToolsListResponseResult -> RawJsonByteString
_toolsMcpToolsListResponseResult :: RawJsonByteString
  } deriving (Int -> McpToolsListResponseResult -> String -> String
[McpToolsListResponseResult] -> String -> String
McpToolsListResponseResult -> String
(Int -> McpToolsListResponseResult -> String -> String)
-> (McpToolsListResponseResult -> String)
-> ([McpToolsListResponseResult] -> String -> String)
-> Show McpToolsListResponseResult
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpToolsListResponseResult -> String -> String
showsPrec :: Int -> McpToolsListResponseResult -> String -> String
$cshow :: McpToolsListResponseResult -> String
show :: McpToolsListResponseResult -> String
$cshowList :: [McpToolsListResponseResult] -> String -> String
showList :: [McpToolsListResponseResult] -> String -> String
Show, ReadPrec [McpToolsListResponseResult]
ReadPrec McpToolsListResponseResult
Int -> ReadS McpToolsListResponseResult
ReadS [McpToolsListResponseResult]
(Int -> ReadS McpToolsListResponseResult)
-> ReadS [McpToolsListResponseResult]
-> ReadPrec McpToolsListResponseResult
-> ReadPrec [McpToolsListResponseResult]
-> Read McpToolsListResponseResult
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsListResponseResult
readsPrec :: Int -> ReadS McpToolsListResponseResult
$creadList :: ReadS [McpToolsListResponseResult]
readList :: ReadS [McpToolsListResponseResult]
$creadPrec :: ReadPrec McpToolsListResponseResult
readPrec :: ReadPrec McpToolsListResponseResult
$creadListPrec :: ReadPrec [McpToolsListResponseResult]
readListPrec :: ReadPrec [McpToolsListResponseResult]
Read, McpToolsListResponseResult -> McpToolsListResponseResult -> Bool
(McpToolsListResponseResult -> McpToolsListResponseResult -> Bool)
-> (McpToolsListResponseResult
    -> McpToolsListResponseResult -> Bool)
-> Eq McpToolsListResponseResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsListResponseResult -> McpToolsListResponseResult -> Bool
== :: McpToolsListResponseResult -> McpToolsListResponseResult -> Bool
$c/= :: McpToolsListResponseResult -> McpToolsListResponseResult -> Bool
/= :: McpToolsListResponseResult -> McpToolsListResponseResult -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsListResponseResult", omitNothingFields = True} ''McpToolsListResponseResult)
makeLenses ''McpToolsListResponseResult

instance Default McpToolsListResponseResult where
  def :: McpToolsListResponseResult
def = McpToolsListResponseResult {
        _toolsMcpToolsListResponseResult :: RawJsonByteString
_toolsMcpToolsListResponseResult = RawJsonByteString
forall a. Default a => a
def
      }

-- |
--
data McpToolsListResponseData =
  McpToolsListResponseData {
    McpToolsListResponseData -> JsonRpcRequest
_jsonrpcMcpToolsListResponseData :: JsonRpcRequest
  , McpToolsListResponseData -> McpToolsListResponseResult
_resultMcpToolsListResponseData  :: McpToolsListResponseResult
  } deriving (Int -> McpToolsListResponseData -> String -> String
[McpToolsListResponseData] -> String -> String
McpToolsListResponseData -> String
(Int -> McpToolsListResponseData -> String -> String)
-> (McpToolsListResponseData -> String)
-> ([McpToolsListResponseData] -> String -> String)
-> Show McpToolsListResponseData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpToolsListResponseData -> String -> String
showsPrec :: Int -> McpToolsListResponseData -> String -> String
$cshow :: McpToolsListResponseData -> String
show :: McpToolsListResponseData -> String
$cshowList :: [McpToolsListResponseData] -> String -> String
showList :: [McpToolsListResponseData] -> String -> String
Show, ReadPrec [McpToolsListResponseData]
ReadPrec McpToolsListResponseData
Int -> ReadS McpToolsListResponseData
ReadS [McpToolsListResponseData]
(Int -> ReadS McpToolsListResponseData)
-> ReadS [McpToolsListResponseData]
-> ReadPrec McpToolsListResponseData
-> ReadPrec [McpToolsListResponseData]
-> Read McpToolsListResponseData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsListResponseData
readsPrec :: Int -> ReadS McpToolsListResponseData
$creadList :: ReadS [McpToolsListResponseData]
readList :: ReadS [McpToolsListResponseData]
$creadPrec :: ReadPrec McpToolsListResponseData
readPrec :: ReadPrec McpToolsListResponseData
$creadListPrec :: ReadPrec [McpToolsListResponseData]
readListPrec :: ReadPrec [McpToolsListResponseData]
Read, McpToolsListResponseData -> McpToolsListResponseData -> Bool
(McpToolsListResponseData -> McpToolsListResponseData -> Bool)
-> (McpToolsListResponseData -> McpToolsListResponseData -> Bool)
-> Eq McpToolsListResponseData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsListResponseData -> McpToolsListResponseData -> Bool
== :: McpToolsListResponseData -> McpToolsListResponseData -> Bool
$c/= :: McpToolsListResponseData -> McpToolsListResponseData -> Bool
/= :: McpToolsListResponseData -> McpToolsListResponseData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsListResponseData", omitNothingFields = True} ''McpToolsListResponseData)
makeLenses ''McpToolsListResponseData

instance Default McpToolsListResponseData where
  def :: McpToolsListResponseData
def = McpToolsListResponseData {
        _jsonrpcMcpToolsListResponseData :: JsonRpcRequest
_jsonrpcMcpToolsListResponseData = JsonRpcRequest
forall a. Default a => a
def
      , _resultMcpToolsListResponseData :: McpToolsListResponseResult
_resultMcpToolsListResponseData = McpToolsListResponseResult
forall a. Default a => a
def
      }


-- |
--
data McpToolsCallResponseResultContent =
  McpToolsCallResponseResultContent {
    McpToolsCallResponseResultContent -> String
_typeMcpToolsCallResponseResultContent :: String
  , McpToolsCallResponseResultContent -> String
_textMcpToolsCallResponseResultContent :: String
  } deriving (Int -> McpToolsCallResponseResultContent -> String -> String
[McpToolsCallResponseResultContent] -> String -> String
McpToolsCallResponseResultContent -> String
(Int -> McpToolsCallResponseResultContent -> String -> String)
-> (McpToolsCallResponseResultContent -> String)
-> ([McpToolsCallResponseResultContent] -> String -> String)
-> Show McpToolsCallResponseResultContent
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpToolsCallResponseResultContent -> String -> String
showsPrec :: Int -> McpToolsCallResponseResultContent -> String -> String
$cshow :: McpToolsCallResponseResultContent -> String
show :: McpToolsCallResponseResultContent -> String
$cshowList :: [McpToolsCallResponseResultContent] -> String -> String
showList :: [McpToolsCallResponseResultContent] -> String -> String
Show, ReadPrec [McpToolsCallResponseResultContent]
ReadPrec McpToolsCallResponseResultContent
Int -> ReadS McpToolsCallResponseResultContent
ReadS [McpToolsCallResponseResultContent]
(Int -> ReadS McpToolsCallResponseResultContent)
-> ReadS [McpToolsCallResponseResultContent]
-> ReadPrec McpToolsCallResponseResultContent
-> ReadPrec [McpToolsCallResponseResultContent]
-> Read McpToolsCallResponseResultContent
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsCallResponseResultContent
readsPrec :: Int -> ReadS McpToolsCallResponseResultContent
$creadList :: ReadS [McpToolsCallResponseResultContent]
readList :: ReadS [McpToolsCallResponseResultContent]
$creadPrec :: ReadPrec McpToolsCallResponseResultContent
readPrec :: ReadPrec McpToolsCallResponseResultContent
$creadListPrec :: ReadPrec [McpToolsCallResponseResultContent]
readListPrec :: ReadPrec [McpToolsCallResponseResultContent]
Read, McpToolsCallResponseResultContent
-> McpToolsCallResponseResultContent -> Bool
(McpToolsCallResponseResultContent
 -> McpToolsCallResponseResultContent -> Bool)
-> (McpToolsCallResponseResultContent
    -> McpToolsCallResponseResultContent -> Bool)
-> Eq McpToolsCallResponseResultContent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsCallResponseResultContent
-> McpToolsCallResponseResultContent -> Bool
== :: McpToolsCallResponseResultContent
-> McpToolsCallResponseResultContent -> Bool
$c/= :: McpToolsCallResponseResultContent
-> McpToolsCallResponseResultContent -> Bool
/= :: McpToolsCallResponseResultContent
-> McpToolsCallResponseResultContent -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsCallResponseResultContent", omitNothingFields = True} ''McpToolsCallResponseResultContent)
makeLenses ''McpToolsCallResponseResultContent

instance Default McpToolsCallResponseResultContent where
  def :: McpToolsCallResponseResultContent
def = McpToolsCallResponseResultContent {
        _typeMcpToolsCallResponseResultContent :: String
_typeMcpToolsCallResponseResultContent = String
forall a. Default a => a
def
      , _textMcpToolsCallResponseResultContent :: String
_textMcpToolsCallResponseResultContent = String
forall a. Default a => a
def
      }


-- |
--
data McpToolsCallResponseResult =
  McpToolsCallResponseResult {
    McpToolsCallResponseResult -> [McpToolsCallResponseResultContent]
_contentMcpToolsCallResponseResult :: [McpToolsCallResponseResultContent]
  , McpToolsCallResponseResult -> Bool
_isErrorMcpToolsCallResponseResult :: Bool
  } deriving (Int -> McpToolsCallResponseResult -> String -> String
[McpToolsCallResponseResult] -> String -> String
McpToolsCallResponseResult -> String
(Int -> McpToolsCallResponseResult -> String -> String)
-> (McpToolsCallResponseResult -> String)
-> ([McpToolsCallResponseResult] -> String -> String)
-> Show McpToolsCallResponseResult
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpToolsCallResponseResult -> String -> String
showsPrec :: Int -> McpToolsCallResponseResult -> String -> String
$cshow :: McpToolsCallResponseResult -> String
show :: McpToolsCallResponseResult -> String
$cshowList :: [McpToolsCallResponseResult] -> String -> String
showList :: [McpToolsCallResponseResult] -> String -> String
Show, ReadPrec [McpToolsCallResponseResult]
ReadPrec McpToolsCallResponseResult
Int -> ReadS McpToolsCallResponseResult
ReadS [McpToolsCallResponseResult]
(Int -> ReadS McpToolsCallResponseResult)
-> ReadS [McpToolsCallResponseResult]
-> ReadPrec McpToolsCallResponseResult
-> ReadPrec [McpToolsCallResponseResult]
-> Read McpToolsCallResponseResult
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsCallResponseResult
readsPrec :: Int -> ReadS McpToolsCallResponseResult
$creadList :: ReadS [McpToolsCallResponseResult]
readList :: ReadS [McpToolsCallResponseResult]
$creadPrec :: ReadPrec McpToolsCallResponseResult
readPrec :: ReadPrec McpToolsCallResponseResult
$creadListPrec :: ReadPrec [McpToolsCallResponseResult]
readListPrec :: ReadPrec [McpToolsCallResponseResult]
Read, McpToolsCallResponseResult -> McpToolsCallResponseResult -> Bool
(McpToolsCallResponseResult -> McpToolsCallResponseResult -> Bool)
-> (McpToolsCallResponseResult
    -> McpToolsCallResponseResult -> Bool)
-> Eq McpToolsCallResponseResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsCallResponseResult -> McpToolsCallResponseResult -> Bool
== :: McpToolsCallResponseResult -> McpToolsCallResponseResult -> Bool
$c/= :: McpToolsCallResponseResult -> McpToolsCallResponseResult -> Bool
/= :: McpToolsCallResponseResult -> McpToolsCallResponseResult -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsCallResponseResult", omitNothingFields = True} ''McpToolsCallResponseResult)
makeLenses ''McpToolsCallResponseResult

instance Default McpToolsCallResponseResult where
  def :: McpToolsCallResponseResult
def = McpToolsCallResponseResult {
        _contentMcpToolsCallResponseResult :: [McpToolsCallResponseResultContent]
_contentMcpToolsCallResponseResult = [McpToolsCallResponseResultContent]
forall a. Default a => a
def
      , _isErrorMcpToolsCallResponseResult :: Bool
_isErrorMcpToolsCallResponseResult = Bool
False
      }


-- |
--
data McpToolsCallResponseData =
  McpToolsCallResponseData {
    McpToolsCallResponseData -> JsonRpcRequest
_jsonrpcMcpToolsCallResponseData :: JsonRpcRequest
  , McpToolsCallResponseData -> McpToolsCallResponseResult
_resultMcpToolsCallResponseData  :: McpToolsCallResponseResult
  } deriving (Int -> McpToolsCallResponseData -> String -> String
[McpToolsCallResponseData] -> String -> String
McpToolsCallResponseData -> String
(Int -> McpToolsCallResponseData -> String -> String)
-> (McpToolsCallResponseData -> String)
-> ([McpToolsCallResponseData] -> String -> String)
-> Show McpToolsCallResponseData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpToolsCallResponseData -> String -> String
showsPrec :: Int -> McpToolsCallResponseData -> String -> String
$cshow :: McpToolsCallResponseData -> String
show :: McpToolsCallResponseData -> String
$cshowList :: [McpToolsCallResponseData] -> String -> String
showList :: [McpToolsCallResponseData] -> String -> String
Show, ReadPrec [McpToolsCallResponseData]
ReadPrec McpToolsCallResponseData
Int -> ReadS McpToolsCallResponseData
ReadS [McpToolsCallResponseData]
(Int -> ReadS McpToolsCallResponseData)
-> ReadS [McpToolsCallResponseData]
-> ReadPrec McpToolsCallResponseData
-> ReadPrec [McpToolsCallResponseData]
-> Read McpToolsCallResponseData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsCallResponseData
readsPrec :: Int -> ReadS McpToolsCallResponseData
$creadList :: ReadS [McpToolsCallResponseData]
readList :: ReadS [McpToolsCallResponseData]
$creadPrec :: ReadPrec McpToolsCallResponseData
readPrec :: ReadPrec McpToolsCallResponseData
$creadListPrec :: ReadPrec [McpToolsCallResponseData]
readListPrec :: ReadPrec [McpToolsCallResponseData]
Read, McpToolsCallResponseData -> McpToolsCallResponseData -> Bool
(McpToolsCallResponseData -> McpToolsCallResponseData -> Bool)
-> (McpToolsCallResponseData -> McpToolsCallResponseData -> Bool)
-> Eq McpToolsCallResponseData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsCallResponseData -> McpToolsCallResponseData -> Bool
== :: McpToolsCallResponseData -> McpToolsCallResponseData -> Bool
$c/= :: McpToolsCallResponseData -> McpToolsCallResponseData -> Bool
/= :: McpToolsCallResponseData -> McpToolsCallResponseData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsCallResponseData", omitNothingFields = True} ''McpToolsCallResponseData)
makeLenses ''McpToolsCallResponseData

instance Default McpToolsCallResponseData where
  def :: McpToolsCallResponseData
def = McpToolsCallResponseData {
        _jsonrpcMcpToolsCallResponseData :: JsonRpcRequest
_jsonrpcMcpToolsCallResponseData = JsonRpcRequest
forall a. Default a => a
def
      , _resultMcpToolsCallResponseData :: McpToolsCallResponseResult
_resultMcpToolsCallResponseData = McpToolsCallResponseResult
forall a. Default a => a
def
      }




-- |
--
data McpPromptsListResponseResult =
  McpPromptsListResponseResult {
    McpPromptsListResponseResult -> RawJsonByteString
_promptsMcpPromptsListResponseResult :: RawJsonByteString
  } deriving (Int -> McpPromptsListResponseResult -> String -> String
[McpPromptsListResponseResult] -> String -> String
McpPromptsListResponseResult -> String
(Int -> McpPromptsListResponseResult -> String -> String)
-> (McpPromptsListResponseResult -> String)
-> ([McpPromptsListResponseResult] -> String -> String)
-> Show McpPromptsListResponseResult
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpPromptsListResponseResult -> String -> String
showsPrec :: Int -> McpPromptsListResponseResult -> String -> String
$cshow :: McpPromptsListResponseResult -> String
show :: McpPromptsListResponseResult -> String
$cshowList :: [McpPromptsListResponseResult] -> String -> String
showList :: [McpPromptsListResponseResult] -> String -> String
Show, ReadPrec [McpPromptsListResponseResult]
ReadPrec McpPromptsListResponseResult
Int -> ReadS McpPromptsListResponseResult
ReadS [McpPromptsListResponseResult]
(Int -> ReadS McpPromptsListResponseResult)
-> ReadS [McpPromptsListResponseResult]
-> ReadPrec McpPromptsListResponseResult
-> ReadPrec [McpPromptsListResponseResult]
-> Read McpPromptsListResponseResult
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsListResponseResult
readsPrec :: Int -> ReadS McpPromptsListResponseResult
$creadList :: ReadS [McpPromptsListResponseResult]
readList :: ReadS [McpPromptsListResponseResult]
$creadPrec :: ReadPrec McpPromptsListResponseResult
readPrec :: ReadPrec McpPromptsListResponseResult
$creadListPrec :: ReadPrec [McpPromptsListResponseResult]
readListPrec :: ReadPrec [McpPromptsListResponseResult]
Read, McpPromptsListResponseResult
-> McpPromptsListResponseResult -> Bool
(McpPromptsListResponseResult
 -> McpPromptsListResponseResult -> Bool)
-> (McpPromptsListResponseResult
    -> McpPromptsListResponseResult -> Bool)
-> Eq McpPromptsListResponseResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsListResponseResult
-> McpPromptsListResponseResult -> Bool
== :: McpPromptsListResponseResult
-> McpPromptsListResponseResult -> Bool
$c/= :: McpPromptsListResponseResult
-> McpPromptsListResponseResult -> Bool
/= :: McpPromptsListResponseResult
-> McpPromptsListResponseResult -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsListResponseResult", omitNothingFields = True} ''McpPromptsListResponseResult)
makeLenses ''McpPromptsListResponseResult

instance Default McpPromptsListResponseResult where
  def :: McpPromptsListResponseResult
def = McpPromptsListResponseResult {
        _promptsMcpPromptsListResponseResult :: RawJsonByteString
_promptsMcpPromptsListResponseResult = RawJsonByteString
forall a. Default a => a
def
      }

-- |
--
data McpPromptsListResponseData =
  McpPromptsListResponseData {
    McpPromptsListResponseData -> JsonRpcRequest
_jsonrpcMcpPromptsListResponseData :: JsonRpcRequest
  , McpPromptsListResponseData -> McpPromptsListResponseResult
_resultMcpPromptsListResponseData  :: McpPromptsListResponseResult
  } deriving (Int -> McpPromptsListResponseData -> String -> String
[McpPromptsListResponseData] -> String -> String
McpPromptsListResponseData -> String
(Int -> McpPromptsListResponseData -> String -> String)
-> (McpPromptsListResponseData -> String)
-> ([McpPromptsListResponseData] -> String -> String)
-> Show McpPromptsListResponseData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpPromptsListResponseData -> String -> String
showsPrec :: Int -> McpPromptsListResponseData -> String -> String
$cshow :: McpPromptsListResponseData -> String
show :: McpPromptsListResponseData -> String
$cshowList :: [McpPromptsListResponseData] -> String -> String
showList :: [McpPromptsListResponseData] -> String -> String
Show, ReadPrec [McpPromptsListResponseData]
ReadPrec McpPromptsListResponseData
Int -> ReadS McpPromptsListResponseData
ReadS [McpPromptsListResponseData]
(Int -> ReadS McpPromptsListResponseData)
-> ReadS [McpPromptsListResponseData]
-> ReadPrec McpPromptsListResponseData
-> ReadPrec [McpPromptsListResponseData]
-> Read McpPromptsListResponseData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsListResponseData
readsPrec :: Int -> ReadS McpPromptsListResponseData
$creadList :: ReadS [McpPromptsListResponseData]
readList :: ReadS [McpPromptsListResponseData]
$creadPrec :: ReadPrec McpPromptsListResponseData
readPrec :: ReadPrec McpPromptsListResponseData
$creadListPrec :: ReadPrec [McpPromptsListResponseData]
readListPrec :: ReadPrec [McpPromptsListResponseData]
Read, McpPromptsListResponseData -> McpPromptsListResponseData -> Bool
(McpPromptsListResponseData -> McpPromptsListResponseData -> Bool)
-> (McpPromptsListResponseData
    -> McpPromptsListResponseData -> Bool)
-> Eq McpPromptsListResponseData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsListResponseData -> McpPromptsListResponseData -> Bool
== :: McpPromptsListResponseData -> McpPromptsListResponseData -> Bool
$c/= :: McpPromptsListResponseData -> McpPromptsListResponseData -> Bool
/= :: McpPromptsListResponseData -> McpPromptsListResponseData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsListResponseData", omitNothingFields = True} ''McpPromptsListResponseData)
makeLenses ''McpPromptsListResponseData

instance Default McpPromptsListResponseData where
  def :: McpPromptsListResponseData
def = McpPromptsListResponseData {
        _jsonrpcMcpPromptsListResponseData :: JsonRpcRequest
_jsonrpcMcpPromptsListResponseData = JsonRpcRequest
forall a. Default a => a
def
      , _resultMcpPromptsListResponseData :: McpPromptsListResponseResult
_resultMcpPromptsListResponseData = McpPromptsListResponseResult
forall a. Default a => a
def
      }

-- |
--
data McpPromptsGetResponseResultPromptMessage =
  McpPromptsGetResponseResultPromptMessage {
    McpPromptsGetResponseResultPromptMessage -> String
_roleMcpPromptsGetResponseResultPromptMessage :: String
  , McpPromptsGetResponseResultPromptMessage -> RawJsonByteString
_contentMcpPromptsGetResponseResultPromptMessage :: RawJsonByteString
  } deriving (Int -> McpPromptsGetResponseResultPromptMessage -> String -> String
[McpPromptsGetResponseResultPromptMessage] -> String -> String
McpPromptsGetResponseResultPromptMessage -> String
(Int
 -> McpPromptsGetResponseResultPromptMessage -> String -> String)
-> (McpPromptsGetResponseResultPromptMessage -> String)
-> ([McpPromptsGetResponseResultPromptMessage] -> String -> String)
-> Show McpPromptsGetResponseResultPromptMessage
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpPromptsGetResponseResultPromptMessage -> String -> String
showsPrec :: Int -> McpPromptsGetResponseResultPromptMessage -> String -> String
$cshow :: McpPromptsGetResponseResultPromptMessage -> String
show :: McpPromptsGetResponseResultPromptMessage -> String
$cshowList :: [McpPromptsGetResponseResultPromptMessage] -> String -> String
showList :: [McpPromptsGetResponseResultPromptMessage] -> String -> String
Show, ReadPrec [McpPromptsGetResponseResultPromptMessage]
ReadPrec McpPromptsGetResponseResultPromptMessage
Int -> ReadS McpPromptsGetResponseResultPromptMessage
ReadS [McpPromptsGetResponseResultPromptMessage]
(Int -> ReadS McpPromptsGetResponseResultPromptMessage)
-> ReadS [McpPromptsGetResponseResultPromptMessage]
-> ReadPrec McpPromptsGetResponseResultPromptMessage
-> ReadPrec [McpPromptsGetResponseResultPromptMessage]
-> Read McpPromptsGetResponseResultPromptMessage
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsGetResponseResultPromptMessage
readsPrec :: Int -> ReadS McpPromptsGetResponseResultPromptMessage
$creadList :: ReadS [McpPromptsGetResponseResultPromptMessage]
readList :: ReadS [McpPromptsGetResponseResultPromptMessage]
$creadPrec :: ReadPrec McpPromptsGetResponseResultPromptMessage
readPrec :: ReadPrec McpPromptsGetResponseResultPromptMessage
$creadListPrec :: ReadPrec [McpPromptsGetResponseResultPromptMessage]
readListPrec :: ReadPrec [McpPromptsGetResponseResultPromptMessage]
Read, McpPromptsGetResponseResultPromptMessage
-> McpPromptsGetResponseResultPromptMessage -> Bool
(McpPromptsGetResponseResultPromptMessage
 -> McpPromptsGetResponseResultPromptMessage -> Bool)
-> (McpPromptsGetResponseResultPromptMessage
    -> McpPromptsGetResponseResultPromptMessage -> Bool)
-> Eq McpPromptsGetResponseResultPromptMessage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsGetResponseResultPromptMessage
-> McpPromptsGetResponseResultPromptMessage -> Bool
== :: McpPromptsGetResponseResultPromptMessage
-> McpPromptsGetResponseResultPromptMessage -> Bool
$c/= :: McpPromptsGetResponseResultPromptMessage
-> McpPromptsGetResponseResultPromptMessage -> Bool
/= :: McpPromptsGetResponseResultPromptMessage
-> McpPromptsGetResponseResultPromptMessage -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsGetResponseResultPromptMessage", omitNothingFields = True} ''McpPromptsGetResponseResultPromptMessage)
makeLenses ''McpPromptsGetResponseResultPromptMessage

instance Default McpPromptsGetResponseResultPromptMessage where
  def :: McpPromptsGetResponseResultPromptMessage
def = McpPromptsGetResponseResultPromptMessage {
        _roleMcpPromptsGetResponseResultPromptMessage :: String
_roleMcpPromptsGetResponseResultPromptMessage = String
"assistant"
      , _contentMcpPromptsGetResponseResultPromptMessage :: RawJsonByteString
_contentMcpPromptsGetResponseResultPromptMessage = RawJsonByteString
forall a. Default a => a
def
      }

-- |
--
data McpPromptsGetResponseResult =
  McpPromptsGetResponseResult {
    McpPromptsGetResponseResult
-> [McpPromptsGetResponseResultPromptMessage]
_messagesMcpPromptsGetResponseResult :: [McpPromptsGetResponseResultPromptMessage]
  } deriving (Int -> McpPromptsGetResponseResult -> String -> String
[McpPromptsGetResponseResult] -> String -> String
McpPromptsGetResponseResult -> String
(Int -> McpPromptsGetResponseResult -> String -> String)
-> (McpPromptsGetResponseResult -> String)
-> ([McpPromptsGetResponseResult] -> String -> String)
-> Show McpPromptsGetResponseResult
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpPromptsGetResponseResult -> String -> String
showsPrec :: Int -> McpPromptsGetResponseResult -> String -> String
$cshow :: McpPromptsGetResponseResult -> String
show :: McpPromptsGetResponseResult -> String
$cshowList :: [McpPromptsGetResponseResult] -> String -> String
showList :: [McpPromptsGetResponseResult] -> String -> String
Show, ReadPrec [McpPromptsGetResponseResult]
ReadPrec McpPromptsGetResponseResult
Int -> ReadS McpPromptsGetResponseResult
ReadS [McpPromptsGetResponseResult]
(Int -> ReadS McpPromptsGetResponseResult)
-> ReadS [McpPromptsGetResponseResult]
-> ReadPrec McpPromptsGetResponseResult
-> ReadPrec [McpPromptsGetResponseResult]
-> Read McpPromptsGetResponseResult
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsGetResponseResult
readsPrec :: Int -> ReadS McpPromptsGetResponseResult
$creadList :: ReadS [McpPromptsGetResponseResult]
readList :: ReadS [McpPromptsGetResponseResult]
$creadPrec :: ReadPrec McpPromptsGetResponseResult
readPrec :: ReadPrec McpPromptsGetResponseResult
$creadListPrec :: ReadPrec [McpPromptsGetResponseResult]
readListPrec :: ReadPrec [McpPromptsGetResponseResult]
Read, McpPromptsGetResponseResult -> McpPromptsGetResponseResult -> Bool
(McpPromptsGetResponseResult
 -> McpPromptsGetResponseResult -> Bool)
-> (McpPromptsGetResponseResult
    -> McpPromptsGetResponseResult -> Bool)
-> Eq McpPromptsGetResponseResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsGetResponseResult -> McpPromptsGetResponseResult -> Bool
== :: McpPromptsGetResponseResult -> McpPromptsGetResponseResult -> Bool
$c/= :: McpPromptsGetResponseResult -> McpPromptsGetResponseResult -> Bool
/= :: McpPromptsGetResponseResult -> McpPromptsGetResponseResult -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsGetResponseResult", omitNothingFields = True} ''McpPromptsGetResponseResult)
makeLenses ''McpPromptsGetResponseResult

instance Default McpPromptsGetResponseResult where
  def :: McpPromptsGetResponseResult
def = McpPromptsGetResponseResult {
        _messagesMcpPromptsGetResponseResult :: [McpPromptsGetResponseResultPromptMessage]
_messagesMcpPromptsGetResponseResult = [McpPromptsGetResponseResultPromptMessage]
forall a. Default a => a
def
      }

-- |
--
data McpPromptsGetResponseData =
  McpPromptsGetResponseData {
    McpPromptsGetResponseData -> JsonRpcRequest
_jsonrpcMcpPromptsGetResponseData :: JsonRpcRequest
  , McpPromptsGetResponseData -> McpPromptsGetResponseResult
_resultMcpPromptsGetResponseData  :: McpPromptsGetResponseResult
  } deriving (Int -> McpPromptsGetResponseData -> String -> String
[McpPromptsGetResponseData] -> String -> String
McpPromptsGetResponseData -> String
(Int -> McpPromptsGetResponseData -> String -> String)
-> (McpPromptsGetResponseData -> String)
-> ([McpPromptsGetResponseData] -> String -> String)
-> Show McpPromptsGetResponseData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpPromptsGetResponseData -> String -> String
showsPrec :: Int -> McpPromptsGetResponseData -> String -> String
$cshow :: McpPromptsGetResponseData -> String
show :: McpPromptsGetResponseData -> String
$cshowList :: [McpPromptsGetResponseData] -> String -> String
showList :: [McpPromptsGetResponseData] -> String -> String
Show, ReadPrec [McpPromptsGetResponseData]
ReadPrec McpPromptsGetResponseData
Int -> ReadS McpPromptsGetResponseData
ReadS [McpPromptsGetResponseData]
(Int -> ReadS McpPromptsGetResponseData)
-> ReadS [McpPromptsGetResponseData]
-> ReadPrec McpPromptsGetResponseData
-> ReadPrec [McpPromptsGetResponseData]
-> Read McpPromptsGetResponseData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsGetResponseData
readsPrec :: Int -> ReadS McpPromptsGetResponseData
$creadList :: ReadS [McpPromptsGetResponseData]
readList :: ReadS [McpPromptsGetResponseData]
$creadPrec :: ReadPrec McpPromptsGetResponseData
readPrec :: ReadPrec McpPromptsGetResponseData
$creadListPrec :: ReadPrec [McpPromptsGetResponseData]
readListPrec :: ReadPrec [McpPromptsGetResponseData]
Read, McpPromptsGetResponseData -> McpPromptsGetResponseData -> Bool
(McpPromptsGetResponseData -> McpPromptsGetResponseData -> Bool)
-> (McpPromptsGetResponseData -> McpPromptsGetResponseData -> Bool)
-> Eq McpPromptsGetResponseData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsGetResponseData -> McpPromptsGetResponseData -> Bool
== :: McpPromptsGetResponseData -> McpPromptsGetResponseData -> Bool
$c/= :: McpPromptsGetResponseData -> McpPromptsGetResponseData -> Bool
/= :: McpPromptsGetResponseData -> McpPromptsGetResponseData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsGetResponseData", omitNothingFields = True} ''McpPromptsGetResponseData)
makeLenses ''McpPromptsGetResponseData

instance Default McpPromptsGetResponseData where
  def :: McpPromptsGetResponseData
def = McpPromptsGetResponseData {
        _jsonrpcMcpPromptsGetResponseData :: JsonRpcRequest
_jsonrpcMcpPromptsGetResponseData = JsonRpcRequest
forall a. Default a => a
def
      , _resultMcpPromptsGetResponseData :: McpPromptsGetResponseResult
_resultMcpPromptsGetResponseData = McpPromptsGetResponseResult
forall a. Default a => a
def
      }





-- |
--
data McpResourcesTemplatesListResponseResult =
  McpResourcesTemplatesListResponseResult {
    McpResourcesTemplatesListResponseResult -> RawJsonByteString
_resourcesMcpResourcesTemplatesListResponseResult :: RawJsonByteString
  } deriving (Int -> McpResourcesTemplatesListResponseResult -> String -> String
[McpResourcesTemplatesListResponseResult] -> String -> String
McpResourcesTemplatesListResponseResult -> String
(Int
 -> McpResourcesTemplatesListResponseResult -> String -> String)
-> (McpResourcesTemplatesListResponseResult -> String)
-> ([McpResourcesTemplatesListResponseResult] -> String -> String)
-> Show McpResourcesTemplatesListResponseResult
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesTemplatesListResponseResult -> String -> String
showsPrec :: Int -> McpResourcesTemplatesListResponseResult -> String -> String
$cshow :: McpResourcesTemplatesListResponseResult -> String
show :: McpResourcesTemplatesListResponseResult -> String
$cshowList :: [McpResourcesTemplatesListResponseResult] -> String -> String
showList :: [McpResourcesTemplatesListResponseResult] -> String -> String
Show, ReadPrec [McpResourcesTemplatesListResponseResult]
ReadPrec McpResourcesTemplatesListResponseResult
Int -> ReadS McpResourcesTemplatesListResponseResult
ReadS [McpResourcesTemplatesListResponseResult]
(Int -> ReadS McpResourcesTemplatesListResponseResult)
-> ReadS [McpResourcesTemplatesListResponseResult]
-> ReadPrec McpResourcesTemplatesListResponseResult
-> ReadPrec [McpResourcesTemplatesListResponseResult]
-> Read McpResourcesTemplatesListResponseResult
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesTemplatesListResponseResult
readsPrec :: Int -> ReadS McpResourcesTemplatesListResponseResult
$creadList :: ReadS [McpResourcesTemplatesListResponseResult]
readList :: ReadS [McpResourcesTemplatesListResponseResult]
$creadPrec :: ReadPrec McpResourcesTemplatesListResponseResult
readPrec :: ReadPrec McpResourcesTemplatesListResponseResult
$creadListPrec :: ReadPrec [McpResourcesTemplatesListResponseResult]
readListPrec :: ReadPrec [McpResourcesTemplatesListResponseResult]
Read, McpResourcesTemplatesListResponseResult
-> McpResourcesTemplatesListResponseResult -> Bool
(McpResourcesTemplatesListResponseResult
 -> McpResourcesTemplatesListResponseResult -> Bool)
-> (McpResourcesTemplatesListResponseResult
    -> McpResourcesTemplatesListResponseResult -> Bool)
-> Eq McpResourcesTemplatesListResponseResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesTemplatesListResponseResult
-> McpResourcesTemplatesListResponseResult -> Bool
== :: McpResourcesTemplatesListResponseResult
-> McpResourcesTemplatesListResponseResult -> Bool
$c/= :: McpResourcesTemplatesListResponseResult
-> McpResourcesTemplatesListResponseResult -> Bool
/= :: McpResourcesTemplatesListResponseResult
-> McpResourcesTemplatesListResponseResult -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesTemplatesListResponseResult", omitNothingFields = True} ''McpResourcesTemplatesListResponseResult)
makeLenses ''McpResourcesTemplatesListResponseResult

instance Default McpResourcesTemplatesListResponseResult where
  def :: McpResourcesTemplatesListResponseResult
def = McpResourcesTemplatesListResponseResult {
        _resourcesMcpResourcesTemplatesListResponseResult :: RawJsonByteString
_resourcesMcpResourcesTemplatesListResponseResult = RawJsonByteString
forall a. Default a => a
def
      }

-- |
--
data McpResourcesTemplatesListResponseData =
  McpResourcesTemplatesListResponseData {
    McpResourcesTemplatesListResponseData -> JsonRpcRequest
_jsonrpcMcpResourcesTemplatesListResponseData :: JsonRpcRequest
  , McpResourcesTemplatesListResponseData
-> McpResourcesTemplatesListResponseResult
_resultMcpResourcesTemplatesListResponseData  :: McpResourcesTemplatesListResponseResult
  } deriving (Int -> McpResourcesTemplatesListResponseData -> String -> String
[McpResourcesTemplatesListResponseData] -> String -> String
McpResourcesTemplatesListResponseData -> String
(Int -> McpResourcesTemplatesListResponseData -> String -> String)
-> (McpResourcesTemplatesListResponseData -> String)
-> ([McpResourcesTemplatesListResponseData] -> String -> String)
-> Show McpResourcesTemplatesListResponseData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesTemplatesListResponseData -> String -> String
showsPrec :: Int -> McpResourcesTemplatesListResponseData -> String -> String
$cshow :: McpResourcesTemplatesListResponseData -> String
show :: McpResourcesTemplatesListResponseData -> String
$cshowList :: [McpResourcesTemplatesListResponseData] -> String -> String
showList :: [McpResourcesTemplatesListResponseData] -> String -> String
Show, ReadPrec [McpResourcesTemplatesListResponseData]
ReadPrec McpResourcesTemplatesListResponseData
Int -> ReadS McpResourcesTemplatesListResponseData
ReadS [McpResourcesTemplatesListResponseData]
(Int -> ReadS McpResourcesTemplatesListResponseData)
-> ReadS [McpResourcesTemplatesListResponseData]
-> ReadPrec McpResourcesTemplatesListResponseData
-> ReadPrec [McpResourcesTemplatesListResponseData]
-> Read McpResourcesTemplatesListResponseData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesTemplatesListResponseData
readsPrec :: Int -> ReadS McpResourcesTemplatesListResponseData
$creadList :: ReadS [McpResourcesTemplatesListResponseData]
readList :: ReadS [McpResourcesTemplatesListResponseData]
$creadPrec :: ReadPrec McpResourcesTemplatesListResponseData
readPrec :: ReadPrec McpResourcesTemplatesListResponseData
$creadListPrec :: ReadPrec [McpResourcesTemplatesListResponseData]
readListPrec :: ReadPrec [McpResourcesTemplatesListResponseData]
Read, McpResourcesTemplatesListResponseData
-> McpResourcesTemplatesListResponseData -> Bool
(McpResourcesTemplatesListResponseData
 -> McpResourcesTemplatesListResponseData -> Bool)
-> (McpResourcesTemplatesListResponseData
    -> McpResourcesTemplatesListResponseData -> Bool)
-> Eq McpResourcesTemplatesListResponseData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesTemplatesListResponseData
-> McpResourcesTemplatesListResponseData -> Bool
== :: McpResourcesTemplatesListResponseData
-> McpResourcesTemplatesListResponseData -> Bool
$c/= :: McpResourcesTemplatesListResponseData
-> McpResourcesTemplatesListResponseData -> Bool
/= :: McpResourcesTemplatesListResponseData
-> McpResourcesTemplatesListResponseData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesTemplatesListResponseData", omitNothingFields = True} ''McpResourcesTemplatesListResponseData)
makeLenses ''McpResourcesTemplatesListResponseData

instance Default McpResourcesTemplatesListResponseData where
  def :: McpResourcesTemplatesListResponseData
def = McpResourcesTemplatesListResponseData {
        _jsonrpcMcpResourcesTemplatesListResponseData :: JsonRpcRequest
_jsonrpcMcpResourcesTemplatesListResponseData = JsonRpcRequest
forall a. Default a => a
def
      , _resultMcpResourcesTemplatesListResponseData :: McpResourcesTemplatesListResponseResult
_resultMcpResourcesTemplatesListResponseData = McpResourcesTemplatesListResponseResult
forall a. Default a => a
def
      }



-- |
--
data McpResourcesListResponseResult =
  McpResourcesListResponseResult {
    McpResourcesListResponseResult -> RawJsonByteString
_resourcesMcpResourcesListResponseResult :: RawJsonByteString
  } deriving (Int -> McpResourcesListResponseResult -> String -> String
[McpResourcesListResponseResult] -> String -> String
McpResourcesListResponseResult -> String
(Int -> McpResourcesListResponseResult -> String -> String)
-> (McpResourcesListResponseResult -> String)
-> ([McpResourcesListResponseResult] -> String -> String)
-> Show McpResourcesListResponseResult
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesListResponseResult -> String -> String
showsPrec :: Int -> McpResourcesListResponseResult -> String -> String
$cshow :: McpResourcesListResponseResult -> String
show :: McpResourcesListResponseResult -> String
$cshowList :: [McpResourcesListResponseResult] -> String -> String
showList :: [McpResourcesListResponseResult] -> String -> String
Show, ReadPrec [McpResourcesListResponseResult]
ReadPrec McpResourcesListResponseResult
Int -> ReadS McpResourcesListResponseResult
ReadS [McpResourcesListResponseResult]
(Int -> ReadS McpResourcesListResponseResult)
-> ReadS [McpResourcesListResponseResult]
-> ReadPrec McpResourcesListResponseResult
-> ReadPrec [McpResourcesListResponseResult]
-> Read McpResourcesListResponseResult
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesListResponseResult
readsPrec :: Int -> ReadS McpResourcesListResponseResult
$creadList :: ReadS [McpResourcesListResponseResult]
readList :: ReadS [McpResourcesListResponseResult]
$creadPrec :: ReadPrec McpResourcesListResponseResult
readPrec :: ReadPrec McpResourcesListResponseResult
$creadListPrec :: ReadPrec [McpResourcesListResponseResult]
readListPrec :: ReadPrec [McpResourcesListResponseResult]
Read, McpResourcesListResponseResult
-> McpResourcesListResponseResult -> Bool
(McpResourcesListResponseResult
 -> McpResourcesListResponseResult -> Bool)
-> (McpResourcesListResponseResult
    -> McpResourcesListResponseResult -> Bool)
-> Eq McpResourcesListResponseResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesListResponseResult
-> McpResourcesListResponseResult -> Bool
== :: McpResourcesListResponseResult
-> McpResourcesListResponseResult -> Bool
$c/= :: McpResourcesListResponseResult
-> McpResourcesListResponseResult -> Bool
/= :: McpResourcesListResponseResult
-> McpResourcesListResponseResult -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesListResponseResult", omitNothingFields = True} ''McpResourcesListResponseResult)
makeLenses ''McpResourcesListResponseResult

instance Default McpResourcesListResponseResult where
  def :: McpResourcesListResponseResult
def = McpResourcesListResponseResult {
        _resourcesMcpResourcesListResponseResult :: RawJsonByteString
_resourcesMcpResourcesListResponseResult = RawJsonByteString
forall a. Default a => a
def
      }

-- |
--
data McpResourcesListResponseData =
  McpResourcesListResponseData {
    McpResourcesListResponseData -> JsonRpcRequest
_jsonrpcMcpResourcesListResponseData :: JsonRpcRequest
  , McpResourcesListResponseData -> McpResourcesListResponseResult
_resultMcpResourcesListResponseData  :: McpResourcesListResponseResult
  } deriving (Int -> McpResourcesListResponseData -> String -> String
[McpResourcesListResponseData] -> String -> String
McpResourcesListResponseData -> String
(Int -> McpResourcesListResponseData -> String -> String)
-> (McpResourcesListResponseData -> String)
-> ([McpResourcesListResponseData] -> String -> String)
-> Show McpResourcesListResponseData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesListResponseData -> String -> String
showsPrec :: Int -> McpResourcesListResponseData -> String -> String
$cshow :: McpResourcesListResponseData -> String
show :: McpResourcesListResponseData -> String
$cshowList :: [McpResourcesListResponseData] -> String -> String
showList :: [McpResourcesListResponseData] -> String -> String
Show, ReadPrec [McpResourcesListResponseData]
ReadPrec McpResourcesListResponseData
Int -> ReadS McpResourcesListResponseData
ReadS [McpResourcesListResponseData]
(Int -> ReadS McpResourcesListResponseData)
-> ReadS [McpResourcesListResponseData]
-> ReadPrec McpResourcesListResponseData
-> ReadPrec [McpResourcesListResponseData]
-> Read McpResourcesListResponseData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesListResponseData
readsPrec :: Int -> ReadS McpResourcesListResponseData
$creadList :: ReadS [McpResourcesListResponseData]
readList :: ReadS [McpResourcesListResponseData]
$creadPrec :: ReadPrec McpResourcesListResponseData
readPrec :: ReadPrec McpResourcesListResponseData
$creadListPrec :: ReadPrec [McpResourcesListResponseData]
readListPrec :: ReadPrec [McpResourcesListResponseData]
Read, McpResourcesListResponseData
-> McpResourcesListResponseData -> Bool
(McpResourcesListResponseData
 -> McpResourcesListResponseData -> Bool)
-> (McpResourcesListResponseData
    -> McpResourcesListResponseData -> Bool)
-> Eq McpResourcesListResponseData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesListResponseData
-> McpResourcesListResponseData -> Bool
== :: McpResourcesListResponseData
-> McpResourcesListResponseData -> Bool
$c/= :: McpResourcesListResponseData
-> McpResourcesListResponseData -> Bool
/= :: McpResourcesListResponseData
-> McpResourcesListResponseData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesListResponseData", omitNothingFields = True} ''McpResourcesListResponseData)
makeLenses ''McpResourcesListResponseData

instance Default McpResourcesListResponseData where
  def :: McpResourcesListResponseData
def = McpResourcesListResponseData {
        _jsonrpcMcpResourcesListResponseData :: JsonRpcRequest
_jsonrpcMcpResourcesListResponseData = JsonRpcRequest
forall a. Default a => a
def
      , _resultMcpResourcesListResponseData :: McpResourcesListResponseResult
_resultMcpResourcesListResponseData = McpResourcesListResponseResult
forall a. Default a => a
def
      }





-- |
--
data McpResourcesReadResponseResult =
  McpResourcesReadResponseResult {
    McpResourcesReadResponseResult -> [RawJsonByteString]
_contentsMcpResourcesReadResponseResult :: [RawJsonByteString]
  } deriving (Int -> McpResourcesReadResponseResult -> String -> String
[McpResourcesReadResponseResult] -> String -> String
McpResourcesReadResponseResult -> String
(Int -> McpResourcesReadResponseResult -> String -> String)
-> (McpResourcesReadResponseResult -> String)
-> ([McpResourcesReadResponseResult] -> String -> String)
-> Show McpResourcesReadResponseResult
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesReadResponseResult -> String -> String
showsPrec :: Int -> McpResourcesReadResponseResult -> String -> String
$cshow :: McpResourcesReadResponseResult -> String
show :: McpResourcesReadResponseResult -> String
$cshowList :: [McpResourcesReadResponseResult] -> String -> String
showList :: [McpResourcesReadResponseResult] -> String -> String
Show, ReadPrec [McpResourcesReadResponseResult]
ReadPrec McpResourcesReadResponseResult
Int -> ReadS McpResourcesReadResponseResult
ReadS [McpResourcesReadResponseResult]
(Int -> ReadS McpResourcesReadResponseResult)
-> ReadS [McpResourcesReadResponseResult]
-> ReadPrec McpResourcesReadResponseResult
-> ReadPrec [McpResourcesReadResponseResult]
-> Read McpResourcesReadResponseResult
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesReadResponseResult
readsPrec :: Int -> ReadS McpResourcesReadResponseResult
$creadList :: ReadS [McpResourcesReadResponseResult]
readList :: ReadS [McpResourcesReadResponseResult]
$creadPrec :: ReadPrec McpResourcesReadResponseResult
readPrec :: ReadPrec McpResourcesReadResponseResult
$creadListPrec :: ReadPrec [McpResourcesReadResponseResult]
readListPrec :: ReadPrec [McpResourcesReadResponseResult]
Read, McpResourcesReadResponseResult
-> McpResourcesReadResponseResult -> Bool
(McpResourcesReadResponseResult
 -> McpResourcesReadResponseResult -> Bool)
-> (McpResourcesReadResponseResult
    -> McpResourcesReadResponseResult -> Bool)
-> Eq McpResourcesReadResponseResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesReadResponseResult
-> McpResourcesReadResponseResult -> Bool
== :: McpResourcesReadResponseResult
-> McpResourcesReadResponseResult -> Bool
$c/= :: McpResourcesReadResponseResult
-> McpResourcesReadResponseResult -> Bool
/= :: McpResourcesReadResponseResult
-> McpResourcesReadResponseResult -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesReadResponseResult", omitNothingFields = True} ''McpResourcesReadResponseResult)
makeLenses ''McpResourcesReadResponseResult

instance Default McpResourcesReadResponseResult where
  def :: McpResourcesReadResponseResult
def = McpResourcesReadResponseResult {
        _contentsMcpResourcesReadResponseResult :: [RawJsonByteString]
_contentsMcpResourcesReadResponseResult = [RawJsonByteString]
forall a. Default a => a
def
      }

-- |
--
data McpResourcesReadResponseData =
  McpResourcesReadResponseData {
    McpResourcesReadResponseData -> JsonRpcRequest
_jsonrpcMcpResourcesReadResponseData :: JsonRpcRequest
  , McpResourcesReadResponseData -> McpResourcesReadResponseResult
_resultMcpResourcesReadResponseData  :: McpResourcesReadResponseResult
  } deriving (Int -> McpResourcesReadResponseData -> String -> String
[McpResourcesReadResponseData] -> String -> String
McpResourcesReadResponseData -> String
(Int -> McpResourcesReadResponseData -> String -> String)
-> (McpResourcesReadResponseData -> String)
-> ([McpResourcesReadResponseData] -> String -> String)
-> Show McpResourcesReadResponseData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesReadResponseData -> String -> String
showsPrec :: Int -> McpResourcesReadResponseData -> String -> String
$cshow :: McpResourcesReadResponseData -> String
show :: McpResourcesReadResponseData -> String
$cshowList :: [McpResourcesReadResponseData] -> String -> String
showList :: [McpResourcesReadResponseData] -> String -> String
Show, ReadPrec [McpResourcesReadResponseData]
ReadPrec McpResourcesReadResponseData
Int -> ReadS McpResourcesReadResponseData
ReadS [McpResourcesReadResponseData]
(Int -> ReadS McpResourcesReadResponseData)
-> ReadS [McpResourcesReadResponseData]
-> ReadPrec McpResourcesReadResponseData
-> ReadPrec [McpResourcesReadResponseData]
-> Read McpResourcesReadResponseData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesReadResponseData
readsPrec :: Int -> ReadS McpResourcesReadResponseData
$creadList :: ReadS [McpResourcesReadResponseData]
readList :: ReadS [McpResourcesReadResponseData]
$creadPrec :: ReadPrec McpResourcesReadResponseData
readPrec :: ReadPrec McpResourcesReadResponseData
$creadListPrec :: ReadPrec [McpResourcesReadResponseData]
readListPrec :: ReadPrec [McpResourcesReadResponseData]
Read, McpResourcesReadResponseData
-> McpResourcesReadResponseData -> Bool
(McpResourcesReadResponseData
 -> McpResourcesReadResponseData -> Bool)
-> (McpResourcesReadResponseData
    -> McpResourcesReadResponseData -> Bool)
-> Eq McpResourcesReadResponseData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesReadResponseData
-> McpResourcesReadResponseData -> Bool
== :: McpResourcesReadResponseData
-> McpResourcesReadResponseData -> Bool
$c/= :: McpResourcesReadResponseData
-> McpResourcesReadResponseData -> Bool
/= :: McpResourcesReadResponseData
-> McpResourcesReadResponseData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesReadResponseData", omitNothingFields = True} ''McpResourcesReadResponseData)
makeLenses ''McpResourcesReadResponseData

instance Default McpResourcesReadResponseData where
  def :: McpResourcesReadResponseData
def = McpResourcesReadResponseData {
        _jsonrpcMcpResourcesReadResponseData :: JsonRpcRequest
_jsonrpcMcpResourcesReadResponseData = JsonRpcRequest
forall a. Default a => a
def
      , _resultMcpResourcesReadResponseData :: McpResourcesReadResponseResult
_resultMcpResourcesReadResponseData = McpResourcesReadResponseResult
forall a. Default a => a
def
      }




-- |
--
data McpCompleteResponseResult =
  McpCompleteResponseResult {
    McpCompleteResponseResult -> [String]
_valuesMcpCompleteResponseResult :: [String]
  } deriving (Int -> McpCompleteResponseResult -> String -> String
[McpCompleteResponseResult] -> String -> String
McpCompleteResponseResult -> String
(Int -> McpCompleteResponseResult -> String -> String)
-> (McpCompleteResponseResult -> String)
-> ([McpCompleteResponseResult] -> String -> String)
-> Show McpCompleteResponseResult
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpCompleteResponseResult -> String -> String
showsPrec :: Int -> McpCompleteResponseResult -> String -> String
$cshow :: McpCompleteResponseResult -> String
show :: McpCompleteResponseResult -> String
$cshowList :: [McpCompleteResponseResult] -> String -> String
showList :: [McpCompleteResponseResult] -> String -> String
Show, ReadPrec [McpCompleteResponseResult]
ReadPrec McpCompleteResponseResult
Int -> ReadS McpCompleteResponseResult
ReadS [McpCompleteResponseResult]
(Int -> ReadS McpCompleteResponseResult)
-> ReadS [McpCompleteResponseResult]
-> ReadPrec McpCompleteResponseResult
-> ReadPrec [McpCompleteResponseResult]
-> Read McpCompleteResponseResult
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpCompleteResponseResult
readsPrec :: Int -> ReadS McpCompleteResponseResult
$creadList :: ReadS [McpCompleteResponseResult]
readList :: ReadS [McpCompleteResponseResult]
$creadPrec :: ReadPrec McpCompleteResponseResult
readPrec :: ReadPrec McpCompleteResponseResult
$creadListPrec :: ReadPrec [McpCompleteResponseResult]
readListPrec :: ReadPrec [McpCompleteResponseResult]
Read, McpCompleteResponseResult -> McpCompleteResponseResult -> Bool
(McpCompleteResponseResult -> McpCompleteResponseResult -> Bool)
-> (McpCompleteResponseResult -> McpCompleteResponseResult -> Bool)
-> Eq McpCompleteResponseResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpCompleteResponseResult -> McpCompleteResponseResult -> Bool
== :: McpCompleteResponseResult -> McpCompleteResponseResult -> Bool
$c/= :: McpCompleteResponseResult -> McpCompleteResponseResult -> Bool
/= :: McpCompleteResponseResult -> McpCompleteResponseResult -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpCompleteResponseResult", omitNothingFields = True} ''McpCompleteResponseResult)
makeLenses ''McpCompleteResponseResult

instance Default McpCompleteResponseResult where
  def :: McpCompleteResponseResult
def = McpCompleteResponseResult {
        _valuesMcpCompleteResponseResult :: [String]
_valuesMcpCompleteResponseResult = [String]
forall a. Default a => a
def
      }

-- |
--
data McpCompleteResponseData =
  McpCompleteResponseData {
    McpCompleteResponseData -> JsonRpcRequest
_jsonrpcMcpCompleteResponseData :: JsonRpcRequest
  , McpCompleteResponseData -> McpCompleteResponseResult
_resultMcpCompleteResponseData  :: McpCompleteResponseResult
  } deriving (Int -> McpCompleteResponseData -> String -> String
[McpCompleteResponseData] -> String -> String
McpCompleteResponseData -> String
(Int -> McpCompleteResponseData -> String -> String)
-> (McpCompleteResponseData -> String)
-> ([McpCompleteResponseData] -> String -> String)
-> Show McpCompleteResponseData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpCompleteResponseData -> String -> String
showsPrec :: Int -> McpCompleteResponseData -> String -> String
$cshow :: McpCompleteResponseData -> String
show :: McpCompleteResponseData -> String
$cshowList :: [McpCompleteResponseData] -> String -> String
showList :: [McpCompleteResponseData] -> String -> String
Show, ReadPrec [McpCompleteResponseData]
ReadPrec McpCompleteResponseData
Int -> ReadS McpCompleteResponseData
ReadS [McpCompleteResponseData]
(Int -> ReadS McpCompleteResponseData)
-> ReadS [McpCompleteResponseData]
-> ReadPrec McpCompleteResponseData
-> ReadPrec [McpCompleteResponseData]
-> Read McpCompleteResponseData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpCompleteResponseData
readsPrec :: Int -> ReadS McpCompleteResponseData
$creadList :: ReadS [McpCompleteResponseData]
readList :: ReadS [McpCompleteResponseData]
$creadPrec :: ReadPrec McpCompleteResponseData
readPrec :: ReadPrec McpCompleteResponseData
$creadListPrec :: ReadPrec [McpCompleteResponseData]
readListPrec :: ReadPrec [McpCompleteResponseData]
Read, McpCompleteResponseData -> McpCompleteResponseData -> Bool
(McpCompleteResponseData -> McpCompleteResponseData -> Bool)
-> (McpCompleteResponseData -> McpCompleteResponseData -> Bool)
-> Eq McpCompleteResponseData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpCompleteResponseData -> McpCompleteResponseData -> Bool
== :: McpCompleteResponseData -> McpCompleteResponseData -> Bool
$c/= :: McpCompleteResponseData -> McpCompleteResponseData -> Bool
/= :: McpCompleteResponseData -> McpCompleteResponseData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpCompleteResponseData", omitNothingFields = True} ''McpCompleteResponseData)
makeLenses ''McpCompleteResponseData

instance Default McpCompleteResponseData where
  def :: McpCompleteResponseData
def = McpCompleteResponseData {
        _jsonrpcMcpCompleteResponseData :: JsonRpcRequest
_jsonrpcMcpCompleteResponseData = JsonRpcRequest
forall a. Default a => a
def
      , _resultMcpCompleteResponseData :: McpCompleteResponseResult
_resultMcpCompleteResponseData = McpCompleteResponseResult
forall a. Default a => a
def
      }


-- |
--
data McpTextContent =
  McpTextContent {
    McpTextContent -> String
_typeMcpTextContent :: String
  , McpTextContent -> String
_textMcpTextContent :: String
  } deriving (Int -> McpTextContent -> String -> String
[McpTextContent] -> String -> String
McpTextContent -> String
(Int -> McpTextContent -> String -> String)
-> (McpTextContent -> String)
-> ([McpTextContent] -> String -> String)
-> Show McpTextContent
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpTextContent -> String -> String
showsPrec :: Int -> McpTextContent -> String -> String
$cshow :: McpTextContent -> String
show :: McpTextContent -> String
$cshowList :: [McpTextContent] -> String -> String
showList :: [McpTextContent] -> String -> String
Show, ReadPrec [McpTextContent]
ReadPrec McpTextContent
Int -> ReadS McpTextContent
ReadS [McpTextContent]
(Int -> ReadS McpTextContent)
-> ReadS [McpTextContent]
-> ReadPrec McpTextContent
-> ReadPrec [McpTextContent]
-> Read McpTextContent
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpTextContent
readsPrec :: Int -> ReadS McpTextContent
$creadList :: ReadS [McpTextContent]
readList :: ReadS [McpTextContent]
$creadPrec :: ReadPrec McpTextContent
readPrec :: ReadPrec McpTextContent
$creadListPrec :: ReadPrec [McpTextContent]
readListPrec :: ReadPrec [McpTextContent]
Read, McpTextContent -> McpTextContent -> Bool
(McpTextContent -> McpTextContent -> Bool)
-> (McpTextContent -> McpTextContent -> Bool) -> Eq McpTextContent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpTextContent -> McpTextContent -> Bool
== :: McpTextContent -> McpTextContent -> Bool
$c/= :: McpTextContent -> McpTextContent -> Bool
/= :: McpTextContent -> McpTextContent -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpTextContent", omitNothingFields = True} ''McpTextContent)
makeLenses ''McpTextContent

instance Default McpTextContent where
  def :: McpTextContent
def = McpTextContent {
        _typeMcpTextContent :: String
_typeMcpTextContent = String
"text"
      , _textMcpTextContent :: String
_textMcpTextContent = String
forall a. Default a => a
def
      }

-- |
--
data TextResourceContents =
  TextResourceContents {
    TextResourceContents -> String
_uriTextResourceContents :: String
  , TextResourceContents -> Maybe String
_mimeTypeTextResourceContents :: Maybe String
  , TextResourceContents -> String
_textTextResourceContents :: String
  } deriving (Int -> TextResourceContents -> String -> String
[TextResourceContents] -> String -> String
TextResourceContents -> String
(Int -> TextResourceContents -> String -> String)
-> (TextResourceContents -> String)
-> ([TextResourceContents] -> String -> String)
-> Show TextResourceContents
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> TextResourceContents -> String -> String
showsPrec :: Int -> TextResourceContents -> String -> String
$cshow :: TextResourceContents -> String
show :: TextResourceContents -> String
$cshowList :: [TextResourceContents] -> String -> String
showList :: [TextResourceContents] -> String -> String
Show, ReadPrec [TextResourceContents]
ReadPrec TextResourceContents
Int -> ReadS TextResourceContents
ReadS [TextResourceContents]
(Int -> ReadS TextResourceContents)
-> ReadS [TextResourceContents]
-> ReadPrec TextResourceContents
-> ReadPrec [TextResourceContents]
-> Read TextResourceContents
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS TextResourceContents
readsPrec :: Int -> ReadS TextResourceContents
$creadList :: ReadS [TextResourceContents]
readList :: ReadS [TextResourceContents]
$creadPrec :: ReadPrec TextResourceContents
readPrec :: ReadPrec TextResourceContents
$creadListPrec :: ReadPrec [TextResourceContents]
readListPrec :: ReadPrec [TextResourceContents]
Read, TextResourceContents -> TextResourceContents -> Bool
(TextResourceContents -> TextResourceContents -> Bool)
-> (TextResourceContents -> TextResourceContents -> Bool)
-> Eq TextResourceContents
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TextResourceContents -> TextResourceContents -> Bool
== :: TextResourceContents -> TextResourceContents -> Bool
$c/= :: TextResourceContents -> TextResourceContents -> Bool
/= :: TextResourceContents -> TextResourceContents -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "TextResourceContents", omitNothingFields = True} ''TextResourceContents)
makeLenses ''TextResourceContents

instance Default TextResourceContents where
  def :: TextResourceContents
def = TextResourceContents {
        _uriTextResourceContents :: String
_uriTextResourceContents = String
forall a. Default a => a
def
      , _mimeTypeTextResourceContents :: Maybe String
_mimeTypeTextResourceContents = Maybe String
forall a. Default a => a
def
      , _textTextResourceContents :: String
_textTextResourceContents = String
forall a. Default a => a
def
      }

-- |
--
data BlobResourceContents =
  BlobResourceContents {
    BlobResourceContents -> String
_uriBlobResourceContents :: String
  , BlobResourceContents -> Maybe String
_mimeTypeBlobResourceContents :: Maybe String
  , BlobResourceContents -> String
_blobResourceContents :: String
  } deriving (Int -> BlobResourceContents -> String -> String
[BlobResourceContents] -> String -> String
BlobResourceContents -> String
(Int -> BlobResourceContents -> String -> String)
-> (BlobResourceContents -> String)
-> ([BlobResourceContents] -> String -> String)
-> Show BlobResourceContents
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> BlobResourceContents -> String -> String
showsPrec :: Int -> BlobResourceContents -> String -> String
$cshow :: BlobResourceContents -> String
show :: BlobResourceContents -> String
$cshowList :: [BlobResourceContents] -> String -> String
showList :: [BlobResourceContents] -> String -> String
Show, ReadPrec [BlobResourceContents]
ReadPrec BlobResourceContents
Int -> ReadS BlobResourceContents
ReadS [BlobResourceContents]
(Int -> ReadS BlobResourceContents)
-> ReadS [BlobResourceContents]
-> ReadPrec BlobResourceContents
-> ReadPrec [BlobResourceContents]
-> Read BlobResourceContents
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS BlobResourceContents
readsPrec :: Int -> ReadS BlobResourceContents
$creadList :: ReadS [BlobResourceContents]
readList :: ReadS [BlobResourceContents]
$creadPrec :: ReadPrec BlobResourceContents
readPrec :: ReadPrec BlobResourceContents
$creadListPrec :: ReadPrec [BlobResourceContents]
readListPrec :: ReadPrec [BlobResourceContents]
Read, BlobResourceContents -> BlobResourceContents -> Bool
(BlobResourceContents -> BlobResourceContents -> Bool)
-> (BlobResourceContents -> BlobResourceContents -> Bool)
-> Eq BlobResourceContents
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BlobResourceContents -> BlobResourceContents -> Bool
== :: BlobResourceContents -> BlobResourceContents -> Bool
$c/= :: BlobResourceContents -> BlobResourceContents -> Bool
/= :: BlobResourceContents -> BlobResourceContents -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "BlobResourceContents", omitNothingFields = True} ''BlobResourceContents)
makeLenses ''BlobResourceContents

instance Default BlobResourceContents where
  def :: BlobResourceContents
def = BlobResourceContents {
        _uriBlobResourceContents :: String
_uriBlobResourceContents = String
forall a. Default a => a
def
      , _mimeTypeBlobResourceContents :: Maybe String
_mimeTypeBlobResourceContents = Maybe String
forall a. Default a => a
def
      , _blobResourceContents :: String
_blobResourceContents = String
forall a. Default a => a
def
      }

-- |
--
data McpResponse =
    McpInitializeResponse McpInitializeResponseData
  | McpToolsListResponse McpToolsListResponseData
  | McpToolsCallResponse McpToolsCallResponseData
  | McpPromptsListResponse McpPromptsListResponseData
  | McpPromptsGetResponse McpPromptsGetResponseData
  | McpResourcesTemplatesListResponse McpResourcesTemplatesListResponseData
  | McpResourcesListResponse McpResourcesListResponseData
  | McpResourcesReadResponse McpResourcesReadResponseData
  | McpCompleteResponse McpCompleteResponseData
  deriving (Int -> McpResponse -> String -> String
[McpResponse] -> String -> String
McpResponse -> String
(Int -> McpResponse -> String -> String)
-> (McpResponse -> String)
-> ([McpResponse] -> String -> String)
-> Show McpResponse
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResponse -> String -> String
showsPrec :: Int -> McpResponse -> String -> String
$cshow :: McpResponse -> String
show :: McpResponse -> String
$cshowList :: [McpResponse] -> String -> String
showList :: [McpResponse] -> String -> String
Show, ReadPrec [McpResponse]
ReadPrec McpResponse
Int -> ReadS McpResponse
ReadS [McpResponse]
(Int -> ReadS McpResponse)
-> ReadS [McpResponse]
-> ReadPrec McpResponse
-> ReadPrec [McpResponse]
-> Read McpResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResponse
readsPrec :: Int -> ReadS McpResponse
$creadList :: ReadS [McpResponse]
readList :: ReadS [McpResponse]
$creadPrec :: ReadPrec McpResponse
readPrec :: ReadPrec McpResponse
$creadListPrec :: ReadPrec [McpResponse]
readListPrec :: ReadPrec [McpResponse]
Read, McpResponse -> McpResponse -> Bool
(McpResponse -> McpResponse -> Bool)
-> (McpResponse -> McpResponse -> Bool) -> Eq McpResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResponse -> McpResponse -> Bool
== :: McpResponse -> McpResponse -> Bool
$c/= :: McpResponse -> McpResponse -> Bool
/= :: McpResponse -> McpResponse -> Bool
Eq)

--------------------------------------------------------------------------------
-- |
--
data McpToolsListChangedNotificationDataParams =
  McpToolsListChangedNotificationDataParams {
    McpToolsListChangedNotificationDataParams -> RawJsonByteString
_toolsMcpToolsListChangedNotificationDataParams :: RawJsonByteString
  } deriving (Int
-> McpToolsListChangedNotificationDataParams -> String -> String
[McpToolsListChangedNotificationDataParams] -> String -> String
McpToolsListChangedNotificationDataParams -> String
(Int
 -> McpToolsListChangedNotificationDataParams -> String -> String)
-> (McpToolsListChangedNotificationDataParams -> String)
-> ([McpToolsListChangedNotificationDataParams]
    -> String -> String)
-> Show McpToolsListChangedNotificationDataParams
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int
-> McpToolsListChangedNotificationDataParams -> String -> String
showsPrec :: Int
-> McpToolsListChangedNotificationDataParams -> String -> String
$cshow :: McpToolsListChangedNotificationDataParams -> String
show :: McpToolsListChangedNotificationDataParams -> String
$cshowList :: [McpToolsListChangedNotificationDataParams] -> String -> String
showList :: [McpToolsListChangedNotificationDataParams] -> String -> String
Show, ReadPrec [McpToolsListChangedNotificationDataParams]
ReadPrec McpToolsListChangedNotificationDataParams
Int -> ReadS McpToolsListChangedNotificationDataParams
ReadS [McpToolsListChangedNotificationDataParams]
(Int -> ReadS McpToolsListChangedNotificationDataParams)
-> ReadS [McpToolsListChangedNotificationDataParams]
-> ReadPrec McpToolsListChangedNotificationDataParams
-> ReadPrec [McpToolsListChangedNotificationDataParams]
-> Read McpToolsListChangedNotificationDataParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsListChangedNotificationDataParams
readsPrec :: Int -> ReadS McpToolsListChangedNotificationDataParams
$creadList :: ReadS [McpToolsListChangedNotificationDataParams]
readList :: ReadS [McpToolsListChangedNotificationDataParams]
$creadPrec :: ReadPrec McpToolsListChangedNotificationDataParams
readPrec :: ReadPrec McpToolsListChangedNotificationDataParams
$creadListPrec :: ReadPrec [McpToolsListChangedNotificationDataParams]
readListPrec :: ReadPrec [McpToolsListChangedNotificationDataParams]
Read, McpToolsListChangedNotificationDataParams
-> McpToolsListChangedNotificationDataParams -> Bool
(McpToolsListChangedNotificationDataParams
 -> McpToolsListChangedNotificationDataParams -> Bool)
-> (McpToolsListChangedNotificationDataParams
    -> McpToolsListChangedNotificationDataParams -> Bool)
-> Eq McpToolsListChangedNotificationDataParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsListChangedNotificationDataParams
-> McpToolsListChangedNotificationDataParams -> Bool
== :: McpToolsListChangedNotificationDataParams
-> McpToolsListChangedNotificationDataParams -> Bool
$c/= :: McpToolsListChangedNotificationDataParams
-> McpToolsListChangedNotificationDataParams -> Bool
/= :: McpToolsListChangedNotificationDataParams
-> McpToolsListChangedNotificationDataParams -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsListChangedNotificationDataParams", omitNothingFields = True} ''McpToolsListChangedNotificationDataParams)
makeLenses ''McpToolsListChangedNotificationDataParams

instance Default McpToolsListChangedNotificationDataParams where
  def :: McpToolsListChangedNotificationDataParams
def = McpToolsListChangedNotificationDataParams {
        _toolsMcpToolsListChangedNotificationDataParams :: RawJsonByteString
_toolsMcpToolsListChangedNotificationDataParams = ByteString -> RawJsonByteString
RawJsonByteString ByteString
"[]"
      }

-- |
--
data McpToolsListChangedNotificationData =
  McpToolsListChangedNotificationData {
    McpToolsListChangedNotificationData -> String
_methodMcpToolsListChangedNotificationData  :: String
  , McpToolsListChangedNotificationData
-> McpToolsListChangedNotificationDataParams
_paramsMcpToolsListChangedNotificationData  :: McpToolsListChangedNotificationDataParams
  } deriving (Int -> McpToolsListChangedNotificationData -> String -> String
[McpToolsListChangedNotificationData] -> String -> String
McpToolsListChangedNotificationData -> String
(Int -> McpToolsListChangedNotificationData -> String -> String)
-> (McpToolsListChangedNotificationData -> String)
-> ([McpToolsListChangedNotificationData] -> String -> String)
-> Show McpToolsListChangedNotificationData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpToolsListChangedNotificationData -> String -> String
showsPrec :: Int -> McpToolsListChangedNotificationData -> String -> String
$cshow :: McpToolsListChangedNotificationData -> String
show :: McpToolsListChangedNotificationData -> String
$cshowList :: [McpToolsListChangedNotificationData] -> String -> String
showList :: [McpToolsListChangedNotificationData] -> String -> String
Show, ReadPrec [McpToolsListChangedNotificationData]
ReadPrec McpToolsListChangedNotificationData
Int -> ReadS McpToolsListChangedNotificationData
ReadS [McpToolsListChangedNotificationData]
(Int -> ReadS McpToolsListChangedNotificationData)
-> ReadS [McpToolsListChangedNotificationData]
-> ReadPrec McpToolsListChangedNotificationData
-> ReadPrec [McpToolsListChangedNotificationData]
-> Read McpToolsListChangedNotificationData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpToolsListChangedNotificationData
readsPrec :: Int -> ReadS McpToolsListChangedNotificationData
$creadList :: ReadS [McpToolsListChangedNotificationData]
readList :: ReadS [McpToolsListChangedNotificationData]
$creadPrec :: ReadPrec McpToolsListChangedNotificationData
readPrec :: ReadPrec McpToolsListChangedNotificationData
$creadListPrec :: ReadPrec [McpToolsListChangedNotificationData]
readListPrec :: ReadPrec [McpToolsListChangedNotificationData]
Read, McpToolsListChangedNotificationData
-> McpToolsListChangedNotificationData -> Bool
(McpToolsListChangedNotificationData
 -> McpToolsListChangedNotificationData -> Bool)
-> (McpToolsListChangedNotificationData
    -> McpToolsListChangedNotificationData -> Bool)
-> Eq McpToolsListChangedNotificationData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpToolsListChangedNotificationData
-> McpToolsListChangedNotificationData -> Bool
== :: McpToolsListChangedNotificationData
-> McpToolsListChangedNotificationData -> Bool
$c/= :: McpToolsListChangedNotificationData
-> McpToolsListChangedNotificationData -> Bool
/= :: McpToolsListChangedNotificationData
-> McpToolsListChangedNotificationData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpToolsListChangedNotificationData", omitNothingFields = True} ''McpToolsListChangedNotificationData)
makeLenses ''McpToolsListChangedNotificationData

instance Default McpToolsListChangedNotificationData where
  def :: McpToolsListChangedNotificationData
def = McpToolsListChangedNotificationData {
        _methodMcpToolsListChangedNotificationData :: String
_methodMcpToolsListChangedNotificationData = String
"notifications/tools/list_changed"
      , _paramsMcpToolsListChangedNotificationData :: McpToolsListChangedNotificationDataParams
_paramsMcpToolsListChangedNotificationData = McpToolsListChangedNotificationDataParams
forall a. Default a => a
def
      }
      

-- |
--
data McpPromptsListChangedNotificationDataParams =
  McpPromptsListChangedNotificationDataParams {
    McpPromptsListChangedNotificationDataParams -> RawJsonByteString
_promptsMcpPromptsListChangedNotificationDataParams :: RawJsonByteString   -- prompts-list
  } deriving (Int
-> McpPromptsListChangedNotificationDataParams -> String -> String
[McpPromptsListChangedNotificationDataParams] -> String -> String
McpPromptsListChangedNotificationDataParams -> String
(Int
 -> McpPromptsListChangedNotificationDataParams -> String -> String)
-> (McpPromptsListChangedNotificationDataParams -> String)
-> ([McpPromptsListChangedNotificationDataParams]
    -> String -> String)
-> Show McpPromptsListChangedNotificationDataParams
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int
-> McpPromptsListChangedNotificationDataParams -> String -> String
showsPrec :: Int
-> McpPromptsListChangedNotificationDataParams -> String -> String
$cshow :: McpPromptsListChangedNotificationDataParams -> String
show :: McpPromptsListChangedNotificationDataParams -> String
$cshowList :: [McpPromptsListChangedNotificationDataParams] -> String -> String
showList :: [McpPromptsListChangedNotificationDataParams] -> String -> String
Show, ReadPrec [McpPromptsListChangedNotificationDataParams]
ReadPrec McpPromptsListChangedNotificationDataParams
Int -> ReadS McpPromptsListChangedNotificationDataParams
ReadS [McpPromptsListChangedNotificationDataParams]
(Int -> ReadS McpPromptsListChangedNotificationDataParams)
-> ReadS [McpPromptsListChangedNotificationDataParams]
-> ReadPrec McpPromptsListChangedNotificationDataParams
-> ReadPrec [McpPromptsListChangedNotificationDataParams]
-> Read McpPromptsListChangedNotificationDataParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsListChangedNotificationDataParams
readsPrec :: Int -> ReadS McpPromptsListChangedNotificationDataParams
$creadList :: ReadS [McpPromptsListChangedNotificationDataParams]
readList :: ReadS [McpPromptsListChangedNotificationDataParams]
$creadPrec :: ReadPrec McpPromptsListChangedNotificationDataParams
readPrec :: ReadPrec McpPromptsListChangedNotificationDataParams
$creadListPrec :: ReadPrec [McpPromptsListChangedNotificationDataParams]
readListPrec :: ReadPrec [McpPromptsListChangedNotificationDataParams]
Read, McpPromptsListChangedNotificationDataParams
-> McpPromptsListChangedNotificationDataParams -> Bool
(McpPromptsListChangedNotificationDataParams
 -> McpPromptsListChangedNotificationDataParams -> Bool)
-> (McpPromptsListChangedNotificationDataParams
    -> McpPromptsListChangedNotificationDataParams -> Bool)
-> Eq McpPromptsListChangedNotificationDataParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsListChangedNotificationDataParams
-> McpPromptsListChangedNotificationDataParams -> Bool
== :: McpPromptsListChangedNotificationDataParams
-> McpPromptsListChangedNotificationDataParams -> Bool
$c/= :: McpPromptsListChangedNotificationDataParams
-> McpPromptsListChangedNotificationDataParams -> Bool
/= :: McpPromptsListChangedNotificationDataParams
-> McpPromptsListChangedNotificationDataParams -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsListChangedNotificationDataParams", omitNothingFields = True} ''McpPromptsListChangedNotificationDataParams)
makeLenses ''McpPromptsListChangedNotificationDataParams

instance Default McpPromptsListChangedNotificationDataParams where
  def :: McpPromptsListChangedNotificationDataParams
def = McpPromptsListChangedNotificationDataParams {
        _promptsMcpPromptsListChangedNotificationDataParams :: RawJsonByteString
_promptsMcpPromptsListChangedNotificationDataParams = ByteString -> RawJsonByteString
RawJsonByteString ByteString
"[]"  -- prompts-list
      }

-- |
--
data McpPromptsListChangedNotificationData =
  McpPromptsListChangedNotificationData {
    McpPromptsListChangedNotificationData -> String
_methodMcpPromptsListChangedNotificationData  :: String
  , McpPromptsListChangedNotificationData
-> McpPromptsListChangedNotificationDataParams
_paramsMcpPromptsListChangedNotificationData  :: McpPromptsListChangedNotificationDataParams
  } deriving (Int -> McpPromptsListChangedNotificationData -> String -> String
[McpPromptsListChangedNotificationData] -> String -> String
McpPromptsListChangedNotificationData -> String
(Int -> McpPromptsListChangedNotificationData -> String -> String)
-> (McpPromptsListChangedNotificationData -> String)
-> ([McpPromptsListChangedNotificationData] -> String -> String)
-> Show McpPromptsListChangedNotificationData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpPromptsListChangedNotificationData -> String -> String
showsPrec :: Int -> McpPromptsListChangedNotificationData -> String -> String
$cshow :: McpPromptsListChangedNotificationData -> String
show :: McpPromptsListChangedNotificationData -> String
$cshowList :: [McpPromptsListChangedNotificationData] -> String -> String
showList :: [McpPromptsListChangedNotificationData] -> String -> String
Show, ReadPrec [McpPromptsListChangedNotificationData]
ReadPrec McpPromptsListChangedNotificationData
Int -> ReadS McpPromptsListChangedNotificationData
ReadS [McpPromptsListChangedNotificationData]
(Int -> ReadS McpPromptsListChangedNotificationData)
-> ReadS [McpPromptsListChangedNotificationData]
-> ReadPrec McpPromptsListChangedNotificationData
-> ReadPrec [McpPromptsListChangedNotificationData]
-> Read McpPromptsListChangedNotificationData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpPromptsListChangedNotificationData
readsPrec :: Int -> ReadS McpPromptsListChangedNotificationData
$creadList :: ReadS [McpPromptsListChangedNotificationData]
readList :: ReadS [McpPromptsListChangedNotificationData]
$creadPrec :: ReadPrec McpPromptsListChangedNotificationData
readPrec :: ReadPrec McpPromptsListChangedNotificationData
$creadListPrec :: ReadPrec [McpPromptsListChangedNotificationData]
readListPrec :: ReadPrec [McpPromptsListChangedNotificationData]
Read, McpPromptsListChangedNotificationData
-> McpPromptsListChangedNotificationData -> Bool
(McpPromptsListChangedNotificationData
 -> McpPromptsListChangedNotificationData -> Bool)
-> (McpPromptsListChangedNotificationData
    -> McpPromptsListChangedNotificationData -> Bool)
-> Eq McpPromptsListChangedNotificationData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpPromptsListChangedNotificationData
-> McpPromptsListChangedNotificationData -> Bool
== :: McpPromptsListChangedNotificationData
-> McpPromptsListChangedNotificationData -> Bool
$c/= :: McpPromptsListChangedNotificationData
-> McpPromptsListChangedNotificationData -> Bool
/= :: McpPromptsListChangedNotificationData
-> McpPromptsListChangedNotificationData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpPromptsListChangedNotificationData", omitNothingFields = True} ''McpPromptsListChangedNotificationData)
makeLenses ''McpPromptsListChangedNotificationData

instance Default McpPromptsListChangedNotificationData where
  def :: McpPromptsListChangedNotificationData
def = McpPromptsListChangedNotificationData {
        _methodMcpPromptsListChangedNotificationData :: String
_methodMcpPromptsListChangedNotificationData = String
"notifications/prompts/list_changed"
      , _paramsMcpPromptsListChangedNotificationData :: McpPromptsListChangedNotificationDataParams
_paramsMcpPromptsListChangedNotificationData = McpPromptsListChangedNotificationDataParams
forall a. Default a => a
def
      }




-- |
--
data McpResourcesListChangedNotificationDataParams =
  McpResourcesListChangedNotificationDataParams {
    McpResourcesListChangedNotificationDataParams -> RawJsonByteString
_resourcesMcpResourcesListChangedNotificationDataParams :: RawJsonByteString  -- resources-list
  } deriving (Int
-> McpResourcesListChangedNotificationDataParams
-> String
-> String
[McpResourcesListChangedNotificationDataParams] -> String -> String
McpResourcesListChangedNotificationDataParams -> String
(Int
 -> McpResourcesListChangedNotificationDataParams
 -> String
 -> String)
-> (McpResourcesListChangedNotificationDataParams -> String)
-> ([McpResourcesListChangedNotificationDataParams]
    -> String -> String)
-> Show McpResourcesListChangedNotificationDataParams
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int
-> McpResourcesListChangedNotificationDataParams
-> String
-> String
showsPrec :: Int
-> McpResourcesListChangedNotificationDataParams
-> String
-> String
$cshow :: McpResourcesListChangedNotificationDataParams -> String
show :: McpResourcesListChangedNotificationDataParams -> String
$cshowList :: [McpResourcesListChangedNotificationDataParams] -> String -> String
showList :: [McpResourcesListChangedNotificationDataParams] -> String -> String
Show, ReadPrec [McpResourcesListChangedNotificationDataParams]
ReadPrec McpResourcesListChangedNotificationDataParams
Int -> ReadS McpResourcesListChangedNotificationDataParams
ReadS [McpResourcesListChangedNotificationDataParams]
(Int -> ReadS McpResourcesListChangedNotificationDataParams)
-> ReadS [McpResourcesListChangedNotificationDataParams]
-> ReadPrec McpResourcesListChangedNotificationDataParams
-> ReadPrec [McpResourcesListChangedNotificationDataParams]
-> Read McpResourcesListChangedNotificationDataParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesListChangedNotificationDataParams
readsPrec :: Int -> ReadS McpResourcesListChangedNotificationDataParams
$creadList :: ReadS [McpResourcesListChangedNotificationDataParams]
readList :: ReadS [McpResourcesListChangedNotificationDataParams]
$creadPrec :: ReadPrec McpResourcesListChangedNotificationDataParams
readPrec :: ReadPrec McpResourcesListChangedNotificationDataParams
$creadListPrec :: ReadPrec [McpResourcesListChangedNotificationDataParams]
readListPrec :: ReadPrec [McpResourcesListChangedNotificationDataParams]
Read, McpResourcesListChangedNotificationDataParams
-> McpResourcesListChangedNotificationDataParams -> Bool
(McpResourcesListChangedNotificationDataParams
 -> McpResourcesListChangedNotificationDataParams -> Bool)
-> (McpResourcesListChangedNotificationDataParams
    -> McpResourcesListChangedNotificationDataParams -> Bool)
-> Eq McpResourcesListChangedNotificationDataParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesListChangedNotificationDataParams
-> McpResourcesListChangedNotificationDataParams -> Bool
== :: McpResourcesListChangedNotificationDataParams
-> McpResourcesListChangedNotificationDataParams -> Bool
$c/= :: McpResourcesListChangedNotificationDataParams
-> McpResourcesListChangedNotificationDataParams -> Bool
/= :: McpResourcesListChangedNotificationDataParams
-> McpResourcesListChangedNotificationDataParams -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesListChangedNotificationDataParams", omitNothingFields = True} ''McpResourcesListChangedNotificationDataParams)
makeLenses ''McpResourcesListChangedNotificationDataParams

instance Default McpResourcesListChangedNotificationDataParams where
  def :: McpResourcesListChangedNotificationDataParams
def = McpResourcesListChangedNotificationDataParams {
        _resourcesMcpResourcesListChangedNotificationDataParams :: RawJsonByteString
_resourcesMcpResourcesListChangedNotificationDataParams = ByteString -> RawJsonByteString
RawJsonByteString ByteString
"[]"   -- resources-list
      }

-- |
--
data McpResourcesListChangedNotificationData =
  McpResourcesListChangedNotificationData {
    McpResourcesListChangedNotificationData -> String
_methodMcpResourcesListChangedNotificationData  :: String
  , McpResourcesListChangedNotificationData
-> McpResourcesListChangedNotificationDataParams
_paramsMcpResourcesListChangedNotificationData  :: McpResourcesListChangedNotificationDataParams
  } deriving (Int -> McpResourcesListChangedNotificationData -> String -> String
[McpResourcesListChangedNotificationData] -> String -> String
McpResourcesListChangedNotificationData -> String
(Int
 -> McpResourcesListChangedNotificationData -> String -> String)
-> (McpResourcesListChangedNotificationData -> String)
-> ([McpResourcesListChangedNotificationData] -> String -> String)
-> Show McpResourcesListChangedNotificationData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpResourcesListChangedNotificationData -> String -> String
showsPrec :: Int -> McpResourcesListChangedNotificationData -> String -> String
$cshow :: McpResourcesListChangedNotificationData -> String
show :: McpResourcesListChangedNotificationData -> String
$cshowList :: [McpResourcesListChangedNotificationData] -> String -> String
showList :: [McpResourcesListChangedNotificationData] -> String -> String
Show, ReadPrec [McpResourcesListChangedNotificationData]
ReadPrec McpResourcesListChangedNotificationData
Int -> ReadS McpResourcesListChangedNotificationData
ReadS [McpResourcesListChangedNotificationData]
(Int -> ReadS McpResourcesListChangedNotificationData)
-> ReadS [McpResourcesListChangedNotificationData]
-> ReadPrec McpResourcesListChangedNotificationData
-> ReadPrec [McpResourcesListChangedNotificationData]
-> Read McpResourcesListChangedNotificationData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpResourcesListChangedNotificationData
readsPrec :: Int -> ReadS McpResourcesListChangedNotificationData
$creadList :: ReadS [McpResourcesListChangedNotificationData]
readList :: ReadS [McpResourcesListChangedNotificationData]
$creadPrec :: ReadPrec McpResourcesListChangedNotificationData
readPrec :: ReadPrec McpResourcesListChangedNotificationData
$creadListPrec :: ReadPrec [McpResourcesListChangedNotificationData]
readListPrec :: ReadPrec [McpResourcesListChangedNotificationData]
Read, McpResourcesListChangedNotificationData
-> McpResourcesListChangedNotificationData -> Bool
(McpResourcesListChangedNotificationData
 -> McpResourcesListChangedNotificationData -> Bool)
-> (McpResourcesListChangedNotificationData
    -> McpResourcesListChangedNotificationData -> Bool)
-> Eq McpResourcesListChangedNotificationData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpResourcesListChangedNotificationData
-> McpResourcesListChangedNotificationData -> Bool
== :: McpResourcesListChangedNotificationData
-> McpResourcesListChangedNotificationData -> Bool
$c/= :: McpResourcesListChangedNotificationData
-> McpResourcesListChangedNotificationData -> Bool
/= :: McpResourcesListChangedNotificationData
-> McpResourcesListChangedNotificationData -> Bool
Eq)

$(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesListChangedNotificationData", omitNothingFields = True} ''McpResourcesListChangedNotificationData)
makeLenses ''McpResourcesListChangedNotificationData

instance Default McpResourcesListChangedNotificationData where
  def :: McpResourcesListChangedNotificationData
def = McpResourcesListChangedNotificationData {
        _methodMcpResourcesListChangedNotificationData :: String
_methodMcpResourcesListChangedNotificationData = String
"notifications/resources/list_changed"
      , _paramsMcpResourcesListChangedNotificationData :: McpResourcesListChangedNotificationDataParams
_paramsMcpResourcesListChangedNotificationData = McpResourcesListChangedNotificationDataParams
forall a. Default a => a
def
      }

-- |
--
data McpNotification =
    McpToolsListChangedNotification McpToolsListChangedNotificationData
  | McpPromptsListChangedNotification McpPromptsListChangedNotificationData
  | McpResourcesListChangedNotification McpResourcesListChangedNotificationData
  deriving (Int -> McpNotification -> String -> String
[McpNotification] -> String -> String
McpNotification -> String
(Int -> McpNotification -> String -> String)
-> (McpNotification -> String)
-> ([McpNotification] -> String -> String)
-> Show McpNotification
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> McpNotification -> String -> String
showsPrec :: Int -> McpNotification -> String -> String
$cshow :: McpNotification -> String
show :: McpNotification -> String
$cshowList :: [McpNotification] -> String -> String
showList :: [McpNotification] -> String -> String
Show, ReadPrec [McpNotification]
ReadPrec McpNotification
Int -> ReadS McpNotification
ReadS [McpNotification]
(Int -> ReadS McpNotification)
-> ReadS [McpNotification]
-> ReadPrec McpNotification
-> ReadPrec [McpNotification]
-> Read McpNotification
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS McpNotification
readsPrec :: Int -> ReadS McpNotification
$creadList :: ReadS [McpNotification]
readList :: ReadS [McpNotification]
$creadPrec :: ReadPrec McpNotification
readPrec :: ReadPrec McpNotification
$creadListPrec :: ReadPrec [McpNotification]
readListPrec :: ReadPrec [McpNotification]
Read, McpNotification -> McpNotification -> Bool
(McpNotification -> McpNotification -> Bool)
-> (McpNotification -> McpNotification -> Bool)
-> Eq McpNotification
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: McpNotification -> McpNotification -> Bool
== :: McpNotification -> McpNotification -> Bool
$c/= :: McpNotification -> McpNotification -> Bool
/= :: McpNotification -> McpNotification -> Bool
Eq)

--------------------------------------------------------------------------------
-- |
--
type ToolsCallCommandCallback a = ExitCode
                               -> String -- ^ stdout
                               -> String -- ^ stderr
                               -> IO a

-- |
--
data PtyConnectCommandData =
  PtyConnectCommandData {
    PtyConnectCommandData -> String
_namePtyConnectCommandData :: String
  , PtyConnectCommandData -> RawJsonByteString
_argumentsPtyConnectCommandData :: RawJsonByteString
  , PtyConnectCommandData -> ToolsCallCommandCallback ()
_callbackPtyConnectCommandData  :: ToolsCallCommandCallback ()
  }

makeLenses ''PtyConnectCommandData


-- |
--
data PtyTerminateCommandData =
  PtyTerminateCommandData {
    PtyTerminateCommandData -> ToolsCallCommandCallback ()
_callbackPtyTerminateCommandData  :: ToolsCallCommandCallback ()
  }

makeLenses ''PtyTerminateCommandData


-- |
--
data PtyMessageCommandData =
  PtyMessageCommandData {
    PtyMessageCommandData -> RawJsonByteString
_argumentsPtyMessageCommandData :: RawJsonByteString
  , PtyMessageCommandData -> ToolsCallCommandCallback ()
_callbackPtyMessageCommandData  :: ToolsCallCommandCallback ()
  }

makeLenses ''PtyMessageCommandData


-- |
--
type EchoCommandCallback a = String -> IO a

-- |
--
data EchoCommandData =
  EchoCommandData {
    EchoCommandData -> String
_valueEchoCommandData :: String
  , EchoCommandData -> EchoCommandCallback ()
_callbackEchoCommandData  :: EchoCommandCallback ()
  }

makeLenses ''EchoCommandData

-- |
--
data Command =
    EchoCommand       EchoCommandData
  | PtyConnectCommand PtyConnectCommandData
  | PtyTerminateCommand PtyTerminateCommandData
  | PtyMessageCommand PtyMessageCommandData


--------------------------------------------------------------------------------
-- |
--
data DefaultCmdRunCommandData =
  DefaultCmdRunCommandData {
    DefaultCmdRunCommandData -> JsonRpcRequest
_jsonrpcDefaultCmdRunCommandData   :: JsonRpcRequest
  , DefaultCmdRunCommandData -> String
_nameDefaultCmdRunCommandData      :: String
  , DefaultCmdRunCommandData -> RawJsonByteString
_argumentsDefaultCmdRunCommandData :: RawJsonByteString
  } deriving (Int -> DefaultCmdRunCommandData -> String -> String
[DefaultCmdRunCommandData] -> String -> String
DefaultCmdRunCommandData -> String
(Int -> DefaultCmdRunCommandData -> String -> String)
-> (DefaultCmdRunCommandData -> String)
-> ([DefaultCmdRunCommandData] -> String -> String)
-> Show DefaultCmdRunCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> DefaultCmdRunCommandData -> String -> String
showsPrec :: Int -> DefaultCmdRunCommandData -> String -> String
$cshow :: DefaultCmdRunCommandData -> String
show :: DefaultCmdRunCommandData -> String
$cshowList :: [DefaultCmdRunCommandData] -> String -> String
showList :: [DefaultCmdRunCommandData] -> String -> String
Show, ReadPrec [DefaultCmdRunCommandData]
ReadPrec DefaultCmdRunCommandData
Int -> ReadS DefaultCmdRunCommandData
ReadS [DefaultCmdRunCommandData]
(Int -> ReadS DefaultCmdRunCommandData)
-> ReadS [DefaultCmdRunCommandData]
-> ReadPrec DefaultCmdRunCommandData
-> ReadPrec [DefaultCmdRunCommandData]
-> Read DefaultCmdRunCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS DefaultCmdRunCommandData
readsPrec :: Int -> ReadS DefaultCmdRunCommandData
$creadList :: ReadS [DefaultCmdRunCommandData]
readList :: ReadS [DefaultCmdRunCommandData]
$creadPrec :: ReadPrec DefaultCmdRunCommandData
readPrec :: ReadPrec DefaultCmdRunCommandData
$creadListPrec :: ReadPrec [DefaultCmdRunCommandData]
readListPrec :: ReadPrec [DefaultCmdRunCommandData]
Read, DefaultCmdRunCommandData -> DefaultCmdRunCommandData -> Bool
(DefaultCmdRunCommandData -> DefaultCmdRunCommandData -> Bool)
-> (DefaultCmdRunCommandData -> DefaultCmdRunCommandData -> Bool)
-> Eq DefaultCmdRunCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DefaultCmdRunCommandData -> DefaultCmdRunCommandData -> Bool
== :: DefaultCmdRunCommandData -> DefaultCmdRunCommandData -> Bool
$c/= :: DefaultCmdRunCommandData -> DefaultCmdRunCommandData -> Bool
/= :: DefaultCmdRunCommandData -> DefaultCmdRunCommandData -> Bool
Eq)

makeLenses ''DefaultCmdRunCommandData

-- |
--
data EchoCmdRunCommandData =
  EchoCmdRunCommandData {
    EchoCmdRunCommandData -> JsonRpcRequest
_jsonrpcEchoCmdRunCommandData :: JsonRpcRequest
  , EchoCmdRunCommandData -> String
_valueEchoCmdRunCommandData   :: String
  } deriving (Int -> EchoCmdRunCommandData -> String -> String
[EchoCmdRunCommandData] -> String -> String
EchoCmdRunCommandData -> String
(Int -> EchoCmdRunCommandData -> String -> String)
-> (EchoCmdRunCommandData -> String)
-> ([EchoCmdRunCommandData] -> String -> String)
-> Show EchoCmdRunCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> EchoCmdRunCommandData -> String -> String
showsPrec :: Int -> EchoCmdRunCommandData -> String -> String
$cshow :: EchoCmdRunCommandData -> String
show :: EchoCmdRunCommandData -> String
$cshowList :: [EchoCmdRunCommandData] -> String -> String
showList :: [EchoCmdRunCommandData] -> String -> String
Show, ReadPrec [EchoCmdRunCommandData]
ReadPrec EchoCmdRunCommandData
Int -> ReadS EchoCmdRunCommandData
ReadS [EchoCmdRunCommandData]
(Int -> ReadS EchoCmdRunCommandData)
-> ReadS [EchoCmdRunCommandData]
-> ReadPrec EchoCmdRunCommandData
-> ReadPrec [EchoCmdRunCommandData]
-> Read EchoCmdRunCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS EchoCmdRunCommandData
readsPrec :: Int -> ReadS EchoCmdRunCommandData
$creadList :: ReadS [EchoCmdRunCommandData]
readList :: ReadS [EchoCmdRunCommandData]
$creadPrec :: ReadPrec EchoCmdRunCommandData
readPrec :: ReadPrec EchoCmdRunCommandData
$creadListPrec :: ReadPrec [EchoCmdRunCommandData]
readListPrec :: ReadPrec [EchoCmdRunCommandData]
Read, EchoCmdRunCommandData -> EchoCmdRunCommandData -> Bool
(EchoCmdRunCommandData -> EchoCmdRunCommandData -> Bool)
-> (EchoCmdRunCommandData -> EchoCmdRunCommandData -> Bool)
-> Eq EchoCmdRunCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EchoCmdRunCommandData -> EchoCmdRunCommandData -> Bool
== :: EchoCmdRunCommandData -> EchoCmdRunCommandData -> Bool
$c/= :: EchoCmdRunCommandData -> EchoCmdRunCommandData -> Bool
/= :: EchoCmdRunCommandData -> EchoCmdRunCommandData -> Bool
Eq)

makeLenses ''EchoCmdRunCommandData

-- |
--
data CmdRunCommand =
    EchoCmdRunCommand EchoCmdRunCommandData
  | DefaultCmdRunCommand DefaultCmdRunCommandData
  deriving (Int -> CmdRunCommand -> String -> String
[CmdRunCommand] -> String -> String
CmdRunCommand -> String
(Int -> CmdRunCommand -> String -> String)
-> (CmdRunCommand -> String)
-> ([CmdRunCommand] -> String -> String)
-> Show CmdRunCommand
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> CmdRunCommand -> String -> String
showsPrec :: Int -> CmdRunCommand -> String -> String
$cshow :: CmdRunCommand -> String
show :: CmdRunCommand -> String
$cshowList :: [CmdRunCommand] -> String -> String
showList :: [CmdRunCommand] -> String -> String
Show, ReadPrec [CmdRunCommand]
ReadPrec CmdRunCommand
Int -> ReadS CmdRunCommand
ReadS [CmdRunCommand]
(Int -> ReadS CmdRunCommand)
-> ReadS [CmdRunCommand]
-> ReadPrec CmdRunCommand
-> ReadPrec [CmdRunCommand]
-> Read CmdRunCommand
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS CmdRunCommand
readsPrec :: Int -> ReadS CmdRunCommand
$creadList :: ReadS [CmdRunCommand]
readList :: ReadS [CmdRunCommand]
$creadPrec :: ReadPrec CmdRunCommand
readPrec :: ReadPrec CmdRunCommand
$creadListPrec :: ReadPrec [CmdRunCommand]
readListPrec :: ReadPrec [CmdRunCommand]
Read, CmdRunCommand -> CmdRunCommand -> Bool
(CmdRunCommand -> CmdRunCommand -> Bool)
-> (CmdRunCommand -> CmdRunCommand -> Bool) -> Eq CmdRunCommand
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CmdRunCommand -> CmdRunCommand -> Bool
== :: CmdRunCommand -> CmdRunCommand -> Bool
$c/= :: CmdRunCommand -> CmdRunCommand -> Bool
/= :: CmdRunCommand -> CmdRunCommand -> Bool
Eq)

-- |
--
getJsonRpcCmdRunCommand :: CmdRunCommand -> JsonRpcRequest
getJsonRpcCmdRunCommand :: CmdRunCommand -> JsonRpcRequest
getJsonRpcCmdRunCommand (EchoCmdRunCommand    EchoCmdRunCommandData
d) = EchoCmdRunCommandData
dEchoCmdRunCommandData
-> Getting JsonRpcRequest EchoCmdRunCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest EchoCmdRunCommandData JsonRpcRequest
Lens' EchoCmdRunCommandData JsonRpcRequest
jsonrpcEchoCmdRunCommandData
getJsonRpcCmdRunCommand (DefaultCmdRunCommand DefaultCmdRunCommandData
d) = DefaultCmdRunCommandData
dDefaultCmdRunCommandData
-> Getting JsonRpcRequest DefaultCmdRunCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest DefaultCmdRunCommandData JsonRpcRequest
Lens' DefaultCmdRunCommandData JsonRpcRequest
jsonrpcDefaultCmdRunCommandData

--------------------------------------------------------------------------------
-- |
--
data EchoWatchCommandData =
  EchoWatchCommandData {
    EchoWatchCommandData -> JsonRpcRequest
_jsonrpcEchoWatchCommandData :: JsonRpcRequest
  , EchoWatchCommandData -> String
_valueEchoWatchCommandData   :: String
  } deriving (Int -> EchoWatchCommandData -> String -> String
[EchoWatchCommandData] -> String -> String
EchoWatchCommandData -> String
(Int -> EchoWatchCommandData -> String -> String)
-> (EchoWatchCommandData -> String)
-> ([EchoWatchCommandData] -> String -> String)
-> Show EchoWatchCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> EchoWatchCommandData -> String -> String
showsPrec :: Int -> EchoWatchCommandData -> String -> String
$cshow :: EchoWatchCommandData -> String
show :: EchoWatchCommandData -> String
$cshowList :: [EchoWatchCommandData] -> String -> String
showList :: [EchoWatchCommandData] -> String -> String
Show, ReadPrec [EchoWatchCommandData]
ReadPrec EchoWatchCommandData
Int -> ReadS EchoWatchCommandData
ReadS [EchoWatchCommandData]
(Int -> ReadS EchoWatchCommandData)
-> ReadS [EchoWatchCommandData]
-> ReadPrec EchoWatchCommandData
-> ReadPrec [EchoWatchCommandData]
-> Read EchoWatchCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS EchoWatchCommandData
readsPrec :: Int -> ReadS EchoWatchCommandData
$creadList :: ReadS [EchoWatchCommandData]
readList :: ReadS [EchoWatchCommandData]
$creadPrec :: ReadPrec EchoWatchCommandData
readPrec :: ReadPrec EchoWatchCommandData
$creadListPrec :: ReadPrec [EchoWatchCommandData]
readListPrec :: ReadPrec [EchoWatchCommandData]
Read, EchoWatchCommandData -> EchoWatchCommandData -> Bool
(EchoWatchCommandData -> EchoWatchCommandData -> Bool)
-> (EchoWatchCommandData -> EchoWatchCommandData -> Bool)
-> Eq EchoWatchCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EchoWatchCommandData -> EchoWatchCommandData -> Bool
== :: EchoWatchCommandData -> EchoWatchCommandData -> Bool
$c/= :: EchoWatchCommandData -> EchoWatchCommandData -> Bool
/= :: EchoWatchCommandData -> EchoWatchCommandData -> Bool
Eq)

makeLenses ''EchoWatchCommandData

-- |
--
data ToolsListWatchCommandData =
  ToolsListWatchCommandData {
  } deriving (Int -> ToolsListWatchCommandData -> String -> String
[ToolsListWatchCommandData] -> String -> String
ToolsListWatchCommandData -> String
(Int -> ToolsListWatchCommandData -> String -> String)
-> (ToolsListWatchCommandData -> String)
-> ([ToolsListWatchCommandData] -> String -> String)
-> Show ToolsListWatchCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> ToolsListWatchCommandData -> String -> String
showsPrec :: Int -> ToolsListWatchCommandData -> String -> String
$cshow :: ToolsListWatchCommandData -> String
show :: ToolsListWatchCommandData -> String
$cshowList :: [ToolsListWatchCommandData] -> String -> String
showList :: [ToolsListWatchCommandData] -> String -> String
Show, ReadPrec [ToolsListWatchCommandData]
ReadPrec ToolsListWatchCommandData
Int -> ReadS ToolsListWatchCommandData
ReadS [ToolsListWatchCommandData]
(Int -> ReadS ToolsListWatchCommandData)
-> ReadS [ToolsListWatchCommandData]
-> ReadPrec ToolsListWatchCommandData
-> ReadPrec [ToolsListWatchCommandData]
-> Read ToolsListWatchCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ToolsListWatchCommandData
readsPrec :: Int -> ReadS ToolsListWatchCommandData
$creadList :: ReadS [ToolsListWatchCommandData]
readList :: ReadS [ToolsListWatchCommandData]
$creadPrec :: ReadPrec ToolsListWatchCommandData
readPrec :: ReadPrec ToolsListWatchCommandData
$creadListPrec :: ReadPrec [ToolsListWatchCommandData]
readListPrec :: ReadPrec [ToolsListWatchCommandData]
Read, ToolsListWatchCommandData -> ToolsListWatchCommandData -> Bool
(ToolsListWatchCommandData -> ToolsListWatchCommandData -> Bool)
-> (ToolsListWatchCommandData -> ToolsListWatchCommandData -> Bool)
-> Eq ToolsListWatchCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ToolsListWatchCommandData -> ToolsListWatchCommandData -> Bool
== :: ToolsListWatchCommandData -> ToolsListWatchCommandData -> Bool
$c/= :: ToolsListWatchCommandData -> ToolsListWatchCommandData -> Bool
/= :: ToolsListWatchCommandData -> ToolsListWatchCommandData -> Bool
Eq)

makeLenses ''ToolsListWatchCommandData

-- |
--
data PromptsListWatchCommandData =
  PromptsListWatchCommandData {
  } deriving (Int -> PromptsListWatchCommandData -> String -> String
[PromptsListWatchCommandData] -> String -> String
PromptsListWatchCommandData -> String
(Int -> PromptsListWatchCommandData -> String -> String)
-> (PromptsListWatchCommandData -> String)
-> ([PromptsListWatchCommandData] -> String -> String)
-> Show PromptsListWatchCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> PromptsListWatchCommandData -> String -> String
showsPrec :: Int -> PromptsListWatchCommandData -> String -> String
$cshow :: PromptsListWatchCommandData -> String
show :: PromptsListWatchCommandData -> String
$cshowList :: [PromptsListWatchCommandData] -> String -> String
showList :: [PromptsListWatchCommandData] -> String -> String
Show, ReadPrec [PromptsListWatchCommandData]
ReadPrec PromptsListWatchCommandData
Int -> ReadS PromptsListWatchCommandData
ReadS [PromptsListWatchCommandData]
(Int -> ReadS PromptsListWatchCommandData)
-> ReadS [PromptsListWatchCommandData]
-> ReadPrec PromptsListWatchCommandData
-> ReadPrec [PromptsListWatchCommandData]
-> Read PromptsListWatchCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS PromptsListWatchCommandData
readsPrec :: Int -> ReadS PromptsListWatchCommandData
$creadList :: ReadS [PromptsListWatchCommandData]
readList :: ReadS [PromptsListWatchCommandData]
$creadPrec :: ReadPrec PromptsListWatchCommandData
readPrec :: ReadPrec PromptsListWatchCommandData
$creadListPrec :: ReadPrec [PromptsListWatchCommandData]
readListPrec :: ReadPrec [PromptsListWatchCommandData]
Read, PromptsListWatchCommandData -> PromptsListWatchCommandData -> Bool
(PromptsListWatchCommandData
 -> PromptsListWatchCommandData -> Bool)
-> (PromptsListWatchCommandData
    -> PromptsListWatchCommandData -> Bool)
-> Eq PromptsListWatchCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PromptsListWatchCommandData -> PromptsListWatchCommandData -> Bool
== :: PromptsListWatchCommandData -> PromptsListWatchCommandData -> Bool
$c/= :: PromptsListWatchCommandData -> PromptsListWatchCommandData -> Bool
/= :: PromptsListWatchCommandData -> PromptsListWatchCommandData -> Bool
Eq)

makeLenses ''PromptsListWatchCommandData

-- |
--
data ResourcesListWatchCommandData =
  ResourcesListWatchCommandData {
  } deriving (Int -> ResourcesListWatchCommandData -> String -> String
[ResourcesListWatchCommandData] -> String -> String
ResourcesListWatchCommandData -> String
(Int -> ResourcesListWatchCommandData -> String -> String)
-> (ResourcesListWatchCommandData -> String)
-> ([ResourcesListWatchCommandData] -> String -> String)
-> Show ResourcesListWatchCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> ResourcesListWatchCommandData -> String -> String
showsPrec :: Int -> ResourcesListWatchCommandData -> String -> String
$cshow :: ResourcesListWatchCommandData -> String
show :: ResourcesListWatchCommandData -> String
$cshowList :: [ResourcesListWatchCommandData] -> String -> String
showList :: [ResourcesListWatchCommandData] -> String -> String
Show, ReadPrec [ResourcesListWatchCommandData]
ReadPrec ResourcesListWatchCommandData
Int -> ReadS ResourcesListWatchCommandData
ReadS [ResourcesListWatchCommandData]
(Int -> ReadS ResourcesListWatchCommandData)
-> ReadS [ResourcesListWatchCommandData]
-> ReadPrec ResourcesListWatchCommandData
-> ReadPrec [ResourcesListWatchCommandData]
-> Read ResourcesListWatchCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ResourcesListWatchCommandData
readsPrec :: Int -> ReadS ResourcesListWatchCommandData
$creadList :: ReadS [ResourcesListWatchCommandData]
readList :: ReadS [ResourcesListWatchCommandData]
$creadPrec :: ReadPrec ResourcesListWatchCommandData
readPrec :: ReadPrec ResourcesListWatchCommandData
$creadListPrec :: ReadPrec [ResourcesListWatchCommandData]
readListPrec :: ReadPrec [ResourcesListWatchCommandData]
Read, ResourcesListWatchCommandData
-> ResourcesListWatchCommandData -> Bool
(ResourcesListWatchCommandData
 -> ResourcesListWatchCommandData -> Bool)
-> (ResourcesListWatchCommandData
    -> ResourcesListWatchCommandData -> Bool)
-> Eq ResourcesListWatchCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResourcesListWatchCommandData
-> ResourcesListWatchCommandData -> Bool
== :: ResourcesListWatchCommandData
-> ResourcesListWatchCommandData -> Bool
$c/= :: ResourcesListWatchCommandData
-> ResourcesListWatchCommandData -> Bool
/= :: ResourcesListWatchCommandData
-> ResourcesListWatchCommandData -> Bool
Eq)

makeLenses ''ResourcesListWatchCommandData


-- |
--
data WatchCommand =
    EchoWatchCommand EchoWatchCommandData
  | ToolsListWatchCommand ToolsListWatchCommandData
  | PromptsListWatchCommand PromptsListWatchCommandData
  | ResourcesListWatchCommand ResourcesListWatchCommandData
  deriving (Int -> WatchCommand -> String -> String
[WatchCommand] -> String -> String
WatchCommand -> String
(Int -> WatchCommand -> String -> String)
-> (WatchCommand -> String)
-> ([WatchCommand] -> String -> String)
-> Show WatchCommand
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> WatchCommand -> String -> String
showsPrec :: Int -> WatchCommand -> String -> String
$cshow :: WatchCommand -> String
show :: WatchCommand -> String
$cshowList :: [WatchCommand] -> String -> String
showList :: [WatchCommand] -> String -> String
Show, ReadPrec [WatchCommand]
ReadPrec WatchCommand
Int -> ReadS WatchCommand
ReadS [WatchCommand]
(Int -> ReadS WatchCommand)
-> ReadS [WatchCommand]
-> ReadPrec WatchCommand
-> ReadPrec [WatchCommand]
-> Read WatchCommand
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS WatchCommand
readsPrec :: Int -> ReadS WatchCommand
$creadList :: ReadS [WatchCommand]
readList :: ReadS [WatchCommand]
$creadPrec :: ReadPrec WatchCommand
readPrec :: ReadPrec WatchCommand
$creadListPrec :: ReadPrec [WatchCommand]
readListPrec :: ReadPrec [WatchCommand]
Read, WatchCommand -> WatchCommand -> Bool
(WatchCommand -> WatchCommand -> Bool)
-> (WatchCommand -> WatchCommand -> Bool) -> Eq WatchCommand
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchCommand -> WatchCommand -> Bool
== :: WatchCommand -> WatchCommand -> Bool
$c/= :: WatchCommand -> WatchCommand -> Bool
/= :: WatchCommand -> WatchCommand -> Bool
Eq)



--------------------------------------------------------------------------------
-- |
--
data ProcEchoCommandData =
  ProcEchoCommandData {
    ProcEchoCommandData -> JsonRpcRequest
_jsonrpcProcEchoCommandData :: JsonRpcRequest
  , ProcEchoCommandData -> String
_valueProcEchoCommandData   :: String
  } deriving (Int -> ProcEchoCommandData -> String -> String
[ProcEchoCommandData] -> String -> String
ProcEchoCommandData -> String
(Int -> ProcEchoCommandData -> String -> String)
-> (ProcEchoCommandData -> String)
-> ([ProcEchoCommandData] -> String -> String)
-> Show ProcEchoCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> ProcEchoCommandData -> String -> String
showsPrec :: Int -> ProcEchoCommandData -> String -> String
$cshow :: ProcEchoCommandData -> String
show :: ProcEchoCommandData -> String
$cshowList :: [ProcEchoCommandData] -> String -> String
showList :: [ProcEchoCommandData] -> String -> String
Show, ReadPrec [ProcEchoCommandData]
ReadPrec ProcEchoCommandData
Int -> ReadS ProcEchoCommandData
ReadS [ProcEchoCommandData]
(Int -> ReadS ProcEchoCommandData)
-> ReadS [ProcEchoCommandData]
-> ReadPrec ProcEchoCommandData
-> ReadPrec [ProcEchoCommandData]
-> Read ProcEchoCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ProcEchoCommandData
readsPrec :: Int -> ReadS ProcEchoCommandData
$creadList :: ReadS [ProcEchoCommandData]
readList :: ReadS [ProcEchoCommandData]
$creadPrec :: ReadPrec ProcEchoCommandData
readPrec :: ReadPrec ProcEchoCommandData
$creadListPrec :: ReadPrec [ProcEchoCommandData]
readListPrec :: ReadPrec [ProcEchoCommandData]
Read, ProcEchoCommandData -> ProcEchoCommandData -> Bool
(ProcEchoCommandData -> ProcEchoCommandData -> Bool)
-> (ProcEchoCommandData -> ProcEchoCommandData -> Bool)
-> Eq ProcEchoCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProcEchoCommandData -> ProcEchoCommandData -> Bool
== :: ProcEchoCommandData -> ProcEchoCommandData -> Bool
$c/= :: ProcEchoCommandData -> ProcEchoCommandData -> Bool
/= :: ProcEchoCommandData -> ProcEchoCommandData -> Bool
Eq)

makeLenses ''ProcEchoCommandData

-- |
--
data ProcRunCommandData =
  ProcRunCommandData {
    ProcRunCommandData -> JsonRpcRequest
_jsonrpcProcRunCommandData   :: JsonRpcRequest
  , ProcRunCommandData -> String
_nameProcRunCommandData      :: String
  , ProcRunCommandData -> RawJsonByteString
_argumentsProcRunCommandData :: RawJsonByteString
  } deriving (Int -> ProcRunCommandData -> String -> String
[ProcRunCommandData] -> String -> String
ProcRunCommandData -> String
(Int -> ProcRunCommandData -> String -> String)
-> (ProcRunCommandData -> String)
-> ([ProcRunCommandData] -> String -> String)
-> Show ProcRunCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> ProcRunCommandData -> String -> String
showsPrec :: Int -> ProcRunCommandData -> String -> String
$cshow :: ProcRunCommandData -> String
show :: ProcRunCommandData -> String
$cshowList :: [ProcRunCommandData] -> String -> String
showList :: [ProcRunCommandData] -> String -> String
Show, ReadPrec [ProcRunCommandData]
ReadPrec ProcRunCommandData
Int -> ReadS ProcRunCommandData
ReadS [ProcRunCommandData]
(Int -> ReadS ProcRunCommandData)
-> ReadS [ProcRunCommandData]
-> ReadPrec ProcRunCommandData
-> ReadPrec [ProcRunCommandData]
-> Read ProcRunCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ProcRunCommandData
readsPrec :: Int -> ReadS ProcRunCommandData
$creadList :: ReadS [ProcRunCommandData]
readList :: ReadS [ProcRunCommandData]
$creadPrec :: ReadPrec ProcRunCommandData
readPrec :: ReadPrec ProcRunCommandData
$creadListPrec :: ReadPrec [ProcRunCommandData]
readListPrec :: ReadPrec [ProcRunCommandData]
Read, ProcRunCommandData -> ProcRunCommandData -> Bool
(ProcRunCommandData -> ProcRunCommandData -> Bool)
-> (ProcRunCommandData -> ProcRunCommandData -> Bool)
-> Eq ProcRunCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProcRunCommandData -> ProcRunCommandData -> Bool
== :: ProcRunCommandData -> ProcRunCommandData -> Bool
$c/= :: ProcRunCommandData -> ProcRunCommandData -> Bool
/= :: ProcRunCommandData -> ProcRunCommandData -> Bool
Eq)

makeLenses ''ProcRunCommandData


-- |
--
data ProcTerminateCommandData =
  ProcTerminateCommandData {
    ProcTerminateCommandData -> JsonRpcRequest
_jsonrpcProcTerminateCommandData :: JsonRpcRequest
  } deriving (Int -> ProcTerminateCommandData -> String -> String
[ProcTerminateCommandData] -> String -> String
ProcTerminateCommandData -> String
(Int -> ProcTerminateCommandData -> String -> String)
-> (ProcTerminateCommandData -> String)
-> ([ProcTerminateCommandData] -> String -> String)
-> Show ProcTerminateCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> ProcTerminateCommandData -> String -> String
showsPrec :: Int -> ProcTerminateCommandData -> String -> String
$cshow :: ProcTerminateCommandData -> String
show :: ProcTerminateCommandData -> String
$cshowList :: [ProcTerminateCommandData] -> String -> String
showList :: [ProcTerminateCommandData] -> String -> String
Show, ReadPrec [ProcTerminateCommandData]
ReadPrec ProcTerminateCommandData
Int -> ReadS ProcTerminateCommandData
ReadS [ProcTerminateCommandData]
(Int -> ReadS ProcTerminateCommandData)
-> ReadS [ProcTerminateCommandData]
-> ReadPrec ProcTerminateCommandData
-> ReadPrec [ProcTerminateCommandData]
-> Read ProcTerminateCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ProcTerminateCommandData
readsPrec :: Int -> ReadS ProcTerminateCommandData
$creadList :: ReadS [ProcTerminateCommandData]
readList :: ReadS [ProcTerminateCommandData]
$creadPrec :: ReadPrec ProcTerminateCommandData
readPrec :: ReadPrec ProcTerminateCommandData
$creadListPrec :: ReadPrec [ProcTerminateCommandData]
readListPrec :: ReadPrec [ProcTerminateCommandData]
Read, ProcTerminateCommandData -> ProcTerminateCommandData -> Bool
(ProcTerminateCommandData -> ProcTerminateCommandData -> Bool)
-> (ProcTerminateCommandData -> ProcTerminateCommandData -> Bool)
-> Eq ProcTerminateCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProcTerminateCommandData -> ProcTerminateCommandData -> Bool
== :: ProcTerminateCommandData -> ProcTerminateCommandData -> Bool
$c/= :: ProcTerminateCommandData -> ProcTerminateCommandData -> Bool
/= :: ProcTerminateCommandData -> ProcTerminateCommandData -> Bool
Eq)
  
makeLenses ''ProcTerminateCommandData


-- |
--
data ProcMessageCommandData =
  ProcMessageCommandData {
    ProcMessageCommandData -> JsonRpcRequest
_jsonrpcProcMessageCommandData   :: JsonRpcRequest
  , ProcMessageCommandData -> RawJsonByteString
_argumentsProcMessageCommandData :: RawJsonByteString
  } deriving (Int -> ProcMessageCommandData -> String -> String
[ProcMessageCommandData] -> String -> String
ProcMessageCommandData -> String
(Int -> ProcMessageCommandData -> String -> String)
-> (ProcMessageCommandData -> String)
-> ([ProcMessageCommandData] -> String -> String)
-> Show ProcMessageCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> ProcMessageCommandData -> String -> String
showsPrec :: Int -> ProcMessageCommandData -> String -> String
$cshow :: ProcMessageCommandData -> String
show :: ProcMessageCommandData -> String
$cshowList :: [ProcMessageCommandData] -> String -> String
showList :: [ProcMessageCommandData] -> String -> String
Show, ReadPrec [ProcMessageCommandData]
ReadPrec ProcMessageCommandData
Int -> ReadS ProcMessageCommandData
ReadS [ProcMessageCommandData]
(Int -> ReadS ProcMessageCommandData)
-> ReadS [ProcMessageCommandData]
-> ReadPrec ProcMessageCommandData
-> ReadPrec [ProcMessageCommandData]
-> Read ProcMessageCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ProcMessageCommandData
readsPrec :: Int -> ReadS ProcMessageCommandData
$creadList :: ReadS [ProcMessageCommandData]
readList :: ReadS [ProcMessageCommandData]
$creadPrec :: ReadPrec ProcMessageCommandData
readPrec :: ReadPrec ProcMessageCommandData
$creadListPrec :: ReadPrec [ProcMessageCommandData]
readListPrec :: ReadPrec [ProcMessageCommandData]
Read, ProcMessageCommandData -> ProcMessageCommandData -> Bool
(ProcMessageCommandData -> ProcMessageCommandData -> Bool)
-> (ProcMessageCommandData -> ProcMessageCommandData -> Bool)
-> Eq ProcMessageCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProcMessageCommandData -> ProcMessageCommandData -> Bool
== :: ProcMessageCommandData -> ProcMessageCommandData -> Bool
$c/= :: ProcMessageCommandData -> ProcMessageCommandData -> Bool
/= :: ProcMessageCommandData -> ProcMessageCommandData -> Bool
Eq)

makeLenses ''ProcMessageCommandData

-- |
--
data ProcSpawnCommand =
    ProcEchoCommand      ProcEchoCommandData
  | ProcRunCommand       ProcRunCommandData
  | ProcTerminateCommand ProcTerminateCommandData
  | ProcMessageCommand   ProcMessageCommandData
  deriving (Int -> ProcSpawnCommand -> String -> String
[ProcSpawnCommand] -> String -> String
ProcSpawnCommand -> String
(Int -> ProcSpawnCommand -> String -> String)
-> (ProcSpawnCommand -> String)
-> ([ProcSpawnCommand] -> String -> String)
-> Show ProcSpawnCommand
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> ProcSpawnCommand -> String -> String
showsPrec :: Int -> ProcSpawnCommand -> String -> String
$cshow :: ProcSpawnCommand -> String
show :: ProcSpawnCommand -> String
$cshowList :: [ProcSpawnCommand] -> String -> String
showList :: [ProcSpawnCommand] -> String -> String
Show, ReadPrec [ProcSpawnCommand]
ReadPrec ProcSpawnCommand
Int -> ReadS ProcSpawnCommand
ReadS [ProcSpawnCommand]
(Int -> ReadS ProcSpawnCommand)
-> ReadS [ProcSpawnCommand]
-> ReadPrec ProcSpawnCommand
-> ReadPrec [ProcSpawnCommand]
-> Read ProcSpawnCommand
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ProcSpawnCommand
readsPrec :: Int -> ReadS ProcSpawnCommand
$creadList :: ReadS [ProcSpawnCommand]
readList :: ReadS [ProcSpawnCommand]
$creadPrec :: ReadPrec ProcSpawnCommand
readPrec :: ReadPrec ProcSpawnCommand
$creadListPrec :: ReadPrec [ProcSpawnCommand]
readListPrec :: ReadPrec [ProcSpawnCommand]
Read, ProcSpawnCommand -> ProcSpawnCommand -> Bool
(ProcSpawnCommand -> ProcSpawnCommand -> Bool)
-> (ProcSpawnCommand -> ProcSpawnCommand -> Bool)
-> Eq ProcSpawnCommand
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProcSpawnCommand -> ProcSpawnCommand -> Bool
== :: ProcSpawnCommand -> ProcSpawnCommand -> Bool
$c/= :: ProcSpawnCommand -> ProcSpawnCommand -> Bool
/= :: ProcSpawnCommand -> ProcSpawnCommand -> Bool
Eq)

-- |
--
getJsonRpcProcSpawnCommand :: ProcSpawnCommand -> JsonRpcRequest
getJsonRpcProcSpawnCommand :: ProcSpawnCommand -> JsonRpcRequest
getJsonRpcProcSpawnCommand (ProcEchoCommand      ProcEchoCommandData
d) = ProcEchoCommandData
dProcEchoCommandData
-> Getting JsonRpcRequest ProcEchoCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest ProcEchoCommandData JsonRpcRequest
Lens' ProcEchoCommandData JsonRpcRequest
jsonrpcProcEchoCommandData
getJsonRpcProcSpawnCommand (ProcRunCommand       ProcRunCommandData
d) = ProcRunCommandData
dProcRunCommandData
-> Getting JsonRpcRequest ProcRunCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest ProcRunCommandData JsonRpcRequest
Lens' ProcRunCommandData JsonRpcRequest
jsonrpcProcRunCommandData
getJsonRpcProcSpawnCommand (ProcTerminateCommand ProcTerminateCommandData
d) = ProcTerminateCommandData
dProcTerminateCommandData
-> Getting JsonRpcRequest ProcTerminateCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest ProcTerminateCommandData JsonRpcRequest
Iso' ProcTerminateCommandData JsonRpcRequest
jsonrpcProcTerminateCommandData
getJsonRpcProcSpawnCommand (ProcMessageCommand   ProcMessageCommandData
d) = ProcMessageCommandData
dProcMessageCommandData
-> Getting JsonRpcRequest ProcMessageCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest ProcMessageCommandData JsonRpcRequest
Lens' ProcMessageCommandData JsonRpcRequest
jsonrpcProcMessageCommandData


--------------------------------------------------------------------------------
-- |
--
data SocketEchoCommandData =
  SocketEchoCommandData {
    SocketEchoCommandData -> JsonRpcRequest
_jsonrpcSocketEchoCommandData :: JsonRpcRequest
  , SocketEchoCommandData -> String
_valueSocketEchoCommandData   :: String
  } deriving (Int -> SocketEchoCommandData -> String -> String
[SocketEchoCommandData] -> String -> String
SocketEchoCommandData -> String
(Int -> SocketEchoCommandData -> String -> String)
-> (SocketEchoCommandData -> String)
-> ([SocketEchoCommandData] -> String -> String)
-> Show SocketEchoCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SocketEchoCommandData -> String -> String
showsPrec :: Int -> SocketEchoCommandData -> String -> String
$cshow :: SocketEchoCommandData -> String
show :: SocketEchoCommandData -> String
$cshowList :: [SocketEchoCommandData] -> String -> String
showList :: [SocketEchoCommandData] -> String -> String
Show, ReadPrec [SocketEchoCommandData]
ReadPrec SocketEchoCommandData
Int -> ReadS SocketEchoCommandData
ReadS [SocketEchoCommandData]
(Int -> ReadS SocketEchoCommandData)
-> ReadS [SocketEchoCommandData]
-> ReadPrec SocketEchoCommandData
-> ReadPrec [SocketEchoCommandData]
-> Read SocketEchoCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SocketEchoCommandData
readsPrec :: Int -> ReadS SocketEchoCommandData
$creadList :: ReadS [SocketEchoCommandData]
readList :: ReadS [SocketEchoCommandData]
$creadPrec :: ReadPrec SocketEchoCommandData
readPrec :: ReadPrec SocketEchoCommandData
$creadListPrec :: ReadPrec [SocketEchoCommandData]
readListPrec :: ReadPrec [SocketEchoCommandData]
Read, SocketEchoCommandData -> SocketEchoCommandData -> Bool
(SocketEchoCommandData -> SocketEchoCommandData -> Bool)
-> (SocketEchoCommandData -> SocketEchoCommandData -> Bool)
-> Eq SocketEchoCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketEchoCommandData -> SocketEchoCommandData -> Bool
== :: SocketEchoCommandData -> SocketEchoCommandData -> Bool
$c/= :: SocketEchoCommandData -> SocketEchoCommandData -> Bool
/= :: SocketEchoCommandData -> SocketEchoCommandData -> Bool
Eq)

makeLenses ''SocketEchoCommandData

-- |
--
data SocketOpenCommandData =
  SocketOpenCommandData {
    SocketOpenCommandData -> JsonRpcRequest
_jsonrpcSocketOpenCommandData   :: JsonRpcRequest
  , SocketOpenCommandData -> String
_nameSocketOpenCommandData      :: String
  , SocketOpenCommandData -> RawJsonByteString
_argumentsSocketOpenCommandData :: RawJsonByteString
  } deriving (Int -> SocketOpenCommandData -> String -> String
[SocketOpenCommandData] -> String -> String
SocketOpenCommandData -> String
(Int -> SocketOpenCommandData -> String -> String)
-> (SocketOpenCommandData -> String)
-> ([SocketOpenCommandData] -> String -> String)
-> Show SocketOpenCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SocketOpenCommandData -> String -> String
showsPrec :: Int -> SocketOpenCommandData -> String -> String
$cshow :: SocketOpenCommandData -> String
show :: SocketOpenCommandData -> String
$cshowList :: [SocketOpenCommandData] -> String -> String
showList :: [SocketOpenCommandData] -> String -> String
Show, ReadPrec [SocketOpenCommandData]
ReadPrec SocketOpenCommandData
Int -> ReadS SocketOpenCommandData
ReadS [SocketOpenCommandData]
(Int -> ReadS SocketOpenCommandData)
-> ReadS [SocketOpenCommandData]
-> ReadPrec SocketOpenCommandData
-> ReadPrec [SocketOpenCommandData]
-> Read SocketOpenCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SocketOpenCommandData
readsPrec :: Int -> ReadS SocketOpenCommandData
$creadList :: ReadS [SocketOpenCommandData]
readList :: ReadS [SocketOpenCommandData]
$creadPrec :: ReadPrec SocketOpenCommandData
readPrec :: ReadPrec SocketOpenCommandData
$creadListPrec :: ReadPrec [SocketOpenCommandData]
readListPrec :: ReadPrec [SocketOpenCommandData]
Read, SocketOpenCommandData -> SocketOpenCommandData -> Bool
(SocketOpenCommandData -> SocketOpenCommandData -> Bool)
-> (SocketOpenCommandData -> SocketOpenCommandData -> Bool)
-> Eq SocketOpenCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketOpenCommandData -> SocketOpenCommandData -> Bool
== :: SocketOpenCommandData -> SocketOpenCommandData -> Bool
$c/= :: SocketOpenCommandData -> SocketOpenCommandData -> Bool
/= :: SocketOpenCommandData -> SocketOpenCommandData -> Bool
Eq)

makeLenses ''SocketOpenCommandData


-- |
--
data SocketTelnetCommandData =
  SocketTelnetCommandData {
    SocketTelnetCommandData -> JsonRpcRequest
_jsonrpcSocketTelnetCommandData   :: JsonRpcRequest
  , SocketTelnetCommandData -> String
_nameSocketTelnetCommandData      :: String
  , SocketTelnetCommandData -> RawJsonByteString
_argumentsSocketTelnetCommandData :: RawJsonByteString
  } deriving (Int -> SocketTelnetCommandData -> String -> String
[SocketTelnetCommandData] -> String -> String
SocketTelnetCommandData -> String
(Int -> SocketTelnetCommandData -> String -> String)
-> (SocketTelnetCommandData -> String)
-> ([SocketTelnetCommandData] -> String -> String)
-> Show SocketTelnetCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SocketTelnetCommandData -> String -> String
showsPrec :: Int -> SocketTelnetCommandData -> String -> String
$cshow :: SocketTelnetCommandData -> String
show :: SocketTelnetCommandData -> String
$cshowList :: [SocketTelnetCommandData] -> String -> String
showList :: [SocketTelnetCommandData] -> String -> String
Show, ReadPrec [SocketTelnetCommandData]
ReadPrec SocketTelnetCommandData
Int -> ReadS SocketTelnetCommandData
ReadS [SocketTelnetCommandData]
(Int -> ReadS SocketTelnetCommandData)
-> ReadS [SocketTelnetCommandData]
-> ReadPrec SocketTelnetCommandData
-> ReadPrec [SocketTelnetCommandData]
-> Read SocketTelnetCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SocketTelnetCommandData
readsPrec :: Int -> ReadS SocketTelnetCommandData
$creadList :: ReadS [SocketTelnetCommandData]
readList :: ReadS [SocketTelnetCommandData]
$creadPrec :: ReadPrec SocketTelnetCommandData
readPrec :: ReadPrec SocketTelnetCommandData
$creadListPrec :: ReadPrec [SocketTelnetCommandData]
readListPrec :: ReadPrec [SocketTelnetCommandData]
Read, SocketTelnetCommandData -> SocketTelnetCommandData -> Bool
(SocketTelnetCommandData -> SocketTelnetCommandData -> Bool)
-> (SocketTelnetCommandData -> SocketTelnetCommandData -> Bool)
-> Eq SocketTelnetCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketTelnetCommandData -> SocketTelnetCommandData -> Bool
== :: SocketTelnetCommandData -> SocketTelnetCommandData -> Bool
$c/= :: SocketTelnetCommandData -> SocketTelnetCommandData -> Bool
/= :: SocketTelnetCommandData -> SocketTelnetCommandData -> Bool
Eq)

makeLenses ''SocketTelnetCommandData

-- |
--
data SocketCloseCommandData =
  SocketCloseCommandData {
    SocketCloseCommandData -> JsonRpcRequest
_jsonrpcSocketCloseCommandData :: JsonRpcRequest
  } deriving (Int -> SocketCloseCommandData -> String -> String
[SocketCloseCommandData] -> String -> String
SocketCloseCommandData -> String
(Int -> SocketCloseCommandData -> String -> String)
-> (SocketCloseCommandData -> String)
-> ([SocketCloseCommandData] -> String -> String)
-> Show SocketCloseCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SocketCloseCommandData -> String -> String
showsPrec :: Int -> SocketCloseCommandData -> String -> String
$cshow :: SocketCloseCommandData -> String
show :: SocketCloseCommandData -> String
$cshowList :: [SocketCloseCommandData] -> String -> String
showList :: [SocketCloseCommandData] -> String -> String
Show, ReadPrec [SocketCloseCommandData]
ReadPrec SocketCloseCommandData
Int -> ReadS SocketCloseCommandData
ReadS [SocketCloseCommandData]
(Int -> ReadS SocketCloseCommandData)
-> ReadS [SocketCloseCommandData]
-> ReadPrec SocketCloseCommandData
-> ReadPrec [SocketCloseCommandData]
-> Read SocketCloseCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SocketCloseCommandData
readsPrec :: Int -> ReadS SocketCloseCommandData
$creadList :: ReadS [SocketCloseCommandData]
readList :: ReadS [SocketCloseCommandData]
$creadPrec :: ReadPrec SocketCloseCommandData
readPrec :: ReadPrec SocketCloseCommandData
$creadListPrec :: ReadPrec [SocketCloseCommandData]
readListPrec :: ReadPrec [SocketCloseCommandData]
Read, SocketCloseCommandData -> SocketCloseCommandData -> Bool
(SocketCloseCommandData -> SocketCloseCommandData -> Bool)
-> (SocketCloseCommandData -> SocketCloseCommandData -> Bool)
-> Eq SocketCloseCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketCloseCommandData -> SocketCloseCommandData -> Bool
== :: SocketCloseCommandData -> SocketCloseCommandData -> Bool
$c/= :: SocketCloseCommandData -> SocketCloseCommandData -> Bool
/= :: SocketCloseCommandData -> SocketCloseCommandData -> Bool
Eq)
  
makeLenses ''SocketCloseCommandData


-- |
--
data SocketReadCommandData =
  SocketReadCommandData {
    SocketReadCommandData -> JsonRpcRequest
_jsonrpcSocketReadCommandData :: JsonRpcRequest
  , SocketReadCommandData -> RawJsonByteString
_argumentsSocketReadCommandData :: RawJsonByteString
  } deriving (Int -> SocketReadCommandData -> String -> String
[SocketReadCommandData] -> String -> String
SocketReadCommandData -> String
(Int -> SocketReadCommandData -> String -> String)
-> (SocketReadCommandData -> String)
-> ([SocketReadCommandData] -> String -> String)
-> Show SocketReadCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SocketReadCommandData -> String -> String
showsPrec :: Int -> SocketReadCommandData -> String -> String
$cshow :: SocketReadCommandData -> String
show :: SocketReadCommandData -> String
$cshowList :: [SocketReadCommandData] -> String -> String
showList :: [SocketReadCommandData] -> String -> String
Show, ReadPrec [SocketReadCommandData]
ReadPrec SocketReadCommandData
Int -> ReadS SocketReadCommandData
ReadS [SocketReadCommandData]
(Int -> ReadS SocketReadCommandData)
-> ReadS [SocketReadCommandData]
-> ReadPrec SocketReadCommandData
-> ReadPrec [SocketReadCommandData]
-> Read SocketReadCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SocketReadCommandData
readsPrec :: Int -> ReadS SocketReadCommandData
$creadList :: ReadS [SocketReadCommandData]
readList :: ReadS [SocketReadCommandData]
$creadPrec :: ReadPrec SocketReadCommandData
readPrec :: ReadPrec SocketReadCommandData
$creadListPrec :: ReadPrec [SocketReadCommandData]
readListPrec :: ReadPrec [SocketReadCommandData]
Read, SocketReadCommandData -> SocketReadCommandData -> Bool
(SocketReadCommandData -> SocketReadCommandData -> Bool)
-> (SocketReadCommandData -> SocketReadCommandData -> Bool)
-> Eq SocketReadCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketReadCommandData -> SocketReadCommandData -> Bool
== :: SocketReadCommandData -> SocketReadCommandData -> Bool
$c/= :: SocketReadCommandData -> SocketReadCommandData -> Bool
/= :: SocketReadCommandData -> SocketReadCommandData -> Bool
Eq)
  
makeLenses ''SocketReadCommandData

-- |
--
data SocketWriteCommandData =
  SocketWriteCommandData {
    SocketWriteCommandData -> JsonRpcRequest
_jsonrpcSocketWriteCommandData :: JsonRpcRequest
  , SocketWriteCommandData -> RawJsonByteString
_argumentsSocketWriteCommandData :: RawJsonByteString
  } deriving (Int -> SocketWriteCommandData -> String -> String
[SocketWriteCommandData] -> String -> String
SocketWriteCommandData -> String
(Int -> SocketWriteCommandData -> String -> String)
-> (SocketWriteCommandData -> String)
-> ([SocketWriteCommandData] -> String -> String)
-> Show SocketWriteCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SocketWriteCommandData -> String -> String
showsPrec :: Int -> SocketWriteCommandData -> String -> String
$cshow :: SocketWriteCommandData -> String
show :: SocketWriteCommandData -> String
$cshowList :: [SocketWriteCommandData] -> String -> String
showList :: [SocketWriteCommandData] -> String -> String
Show, ReadPrec [SocketWriteCommandData]
ReadPrec SocketWriteCommandData
Int -> ReadS SocketWriteCommandData
ReadS [SocketWriteCommandData]
(Int -> ReadS SocketWriteCommandData)
-> ReadS [SocketWriteCommandData]
-> ReadPrec SocketWriteCommandData
-> ReadPrec [SocketWriteCommandData]
-> Read SocketWriteCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SocketWriteCommandData
readsPrec :: Int -> ReadS SocketWriteCommandData
$creadList :: ReadS [SocketWriteCommandData]
readList :: ReadS [SocketWriteCommandData]
$creadPrec :: ReadPrec SocketWriteCommandData
readPrec :: ReadPrec SocketWriteCommandData
$creadListPrec :: ReadPrec [SocketWriteCommandData]
readListPrec :: ReadPrec [SocketWriteCommandData]
Read, SocketWriteCommandData -> SocketWriteCommandData -> Bool
(SocketWriteCommandData -> SocketWriteCommandData -> Bool)
-> (SocketWriteCommandData -> SocketWriteCommandData -> Bool)
-> Eq SocketWriteCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketWriteCommandData -> SocketWriteCommandData -> Bool
== :: SocketWriteCommandData -> SocketWriteCommandData -> Bool
$c/= :: SocketWriteCommandData -> SocketWriteCommandData -> Bool
/= :: SocketWriteCommandData -> SocketWriteCommandData -> Bool
Eq)

makeLenses ''SocketWriteCommandData


-- |
--
data SocketMessageCommandData =
  SocketMessageCommandData {
    SocketMessageCommandData -> JsonRpcRequest
_jsonrpcSocketMessageCommandData   :: JsonRpcRequest
  , SocketMessageCommandData -> RawJsonByteString
_argumentsSocketMessageCommandData :: RawJsonByteString
  } deriving (Int -> SocketMessageCommandData -> String -> String
[SocketMessageCommandData] -> String -> String
SocketMessageCommandData -> String
(Int -> SocketMessageCommandData -> String -> String)
-> (SocketMessageCommandData -> String)
-> ([SocketMessageCommandData] -> String -> String)
-> Show SocketMessageCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SocketMessageCommandData -> String -> String
showsPrec :: Int -> SocketMessageCommandData -> String -> String
$cshow :: SocketMessageCommandData -> String
show :: SocketMessageCommandData -> String
$cshowList :: [SocketMessageCommandData] -> String -> String
showList :: [SocketMessageCommandData] -> String -> String
Show, ReadPrec [SocketMessageCommandData]
ReadPrec SocketMessageCommandData
Int -> ReadS SocketMessageCommandData
ReadS [SocketMessageCommandData]
(Int -> ReadS SocketMessageCommandData)
-> ReadS [SocketMessageCommandData]
-> ReadPrec SocketMessageCommandData
-> ReadPrec [SocketMessageCommandData]
-> Read SocketMessageCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SocketMessageCommandData
readsPrec :: Int -> ReadS SocketMessageCommandData
$creadList :: ReadS [SocketMessageCommandData]
readList :: ReadS [SocketMessageCommandData]
$creadPrec :: ReadPrec SocketMessageCommandData
readPrec :: ReadPrec SocketMessageCommandData
$creadListPrec :: ReadPrec [SocketMessageCommandData]
readListPrec :: ReadPrec [SocketMessageCommandData]
Read, SocketMessageCommandData -> SocketMessageCommandData -> Bool
(SocketMessageCommandData -> SocketMessageCommandData -> Bool)
-> (SocketMessageCommandData -> SocketMessageCommandData -> Bool)
-> Eq SocketMessageCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketMessageCommandData -> SocketMessageCommandData -> Bool
== :: SocketMessageCommandData -> SocketMessageCommandData -> Bool
$c/= :: SocketMessageCommandData -> SocketMessageCommandData -> Bool
/= :: SocketMessageCommandData -> SocketMessageCommandData -> Bool
Eq)

makeLenses ''SocketMessageCommandData

-- |
--
data SocketCommand =
    SocketEchoCommand    SocketEchoCommandData
  | SocketOpenCommand    SocketOpenCommandData
  | SocketCloseCommand   SocketCloseCommandData
  | SocketReadCommand    SocketReadCommandData
  | SocketWriteCommand   SocketWriteCommandData
  | SocketMessageCommand SocketMessageCommandData
  | SocketTelnetCommand  SocketTelnetCommandData
  deriving (Int -> SocketCommand -> String -> String
[SocketCommand] -> String -> String
SocketCommand -> String
(Int -> SocketCommand -> String -> String)
-> (SocketCommand -> String)
-> ([SocketCommand] -> String -> String)
-> Show SocketCommand
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SocketCommand -> String -> String
showsPrec :: Int -> SocketCommand -> String -> String
$cshow :: SocketCommand -> String
show :: SocketCommand -> String
$cshowList :: [SocketCommand] -> String -> String
showList :: [SocketCommand] -> String -> String
Show, ReadPrec [SocketCommand]
ReadPrec SocketCommand
Int -> ReadS SocketCommand
ReadS [SocketCommand]
(Int -> ReadS SocketCommand)
-> ReadS [SocketCommand]
-> ReadPrec SocketCommand
-> ReadPrec [SocketCommand]
-> Read SocketCommand
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SocketCommand
readsPrec :: Int -> ReadS SocketCommand
$creadList :: ReadS [SocketCommand]
readList :: ReadS [SocketCommand]
$creadPrec :: ReadPrec SocketCommand
readPrec :: ReadPrec SocketCommand
$creadListPrec :: ReadPrec [SocketCommand]
readListPrec :: ReadPrec [SocketCommand]
Read, SocketCommand -> SocketCommand -> Bool
(SocketCommand -> SocketCommand -> Bool)
-> (SocketCommand -> SocketCommand -> Bool) -> Eq SocketCommand
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketCommand -> SocketCommand -> Bool
== :: SocketCommand -> SocketCommand -> Bool
$c/= :: SocketCommand -> SocketCommand -> Bool
/= :: SocketCommand -> SocketCommand -> Bool
Eq)

-- |
--
getJsonRpcSocketCommand :: SocketCommand -> JsonRpcRequest
getJsonRpcSocketCommand :: SocketCommand -> JsonRpcRequest
getJsonRpcSocketCommand (SocketEchoCommand    SocketEchoCommandData
d) = SocketEchoCommandData
dSocketEchoCommandData
-> Getting JsonRpcRequest SocketEchoCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SocketEchoCommandData JsonRpcRequest
Lens' SocketEchoCommandData JsonRpcRequest
jsonrpcSocketEchoCommandData
getJsonRpcSocketCommand (SocketOpenCommand    SocketOpenCommandData
d) = SocketOpenCommandData
dSocketOpenCommandData
-> Getting JsonRpcRequest SocketOpenCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SocketOpenCommandData JsonRpcRequest
Lens' SocketOpenCommandData JsonRpcRequest
jsonrpcSocketOpenCommandData
getJsonRpcSocketCommand (SocketCloseCommand   SocketCloseCommandData
d) = SocketCloseCommandData
dSocketCloseCommandData
-> Getting JsonRpcRequest SocketCloseCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SocketCloseCommandData JsonRpcRequest
Iso' SocketCloseCommandData JsonRpcRequest
jsonrpcSocketCloseCommandData
getJsonRpcSocketCommand (SocketReadCommand    SocketReadCommandData
d) = SocketReadCommandData
dSocketReadCommandData
-> Getting JsonRpcRequest SocketReadCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SocketReadCommandData JsonRpcRequest
Lens' SocketReadCommandData JsonRpcRequest
jsonrpcSocketReadCommandData
getJsonRpcSocketCommand (SocketWriteCommand   SocketWriteCommandData
d) = SocketWriteCommandData
dSocketWriteCommandData
-> Getting JsonRpcRequest SocketWriteCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SocketWriteCommandData JsonRpcRequest
Lens' SocketWriteCommandData JsonRpcRequest
jsonrpcSocketWriteCommandData
getJsonRpcSocketCommand (SocketMessageCommand SocketMessageCommandData
d) = SocketMessageCommandData
dSocketMessageCommandData
-> Getting JsonRpcRequest SocketMessageCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SocketMessageCommandData JsonRpcRequest
Lens' SocketMessageCommandData JsonRpcRequest
jsonrpcSocketMessageCommandData
getJsonRpcSocketCommand (SocketTelnetCommand  SocketTelnetCommandData
d) = SocketTelnetCommandData
dSocketTelnetCommandData
-> Getting JsonRpcRequest SocketTelnetCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SocketTelnetCommandData JsonRpcRequest
Lens' SocketTelnetCommandData JsonRpcRequest
jsonrpcSocketTelnetCommandData

--------------------------------------------------------------------------------
-- |
--
data SerialEchoCommandData =
  SerialEchoCommandData {
    SerialEchoCommandData -> JsonRpcRequest
_jsonrpcSerialEchoCommandData :: JsonRpcRequest
  , SerialEchoCommandData -> String
_valueSerialEchoCommandData   :: String
  } deriving (Int -> SerialEchoCommandData -> String -> String
[SerialEchoCommandData] -> String -> String
SerialEchoCommandData -> String
(Int -> SerialEchoCommandData -> String -> String)
-> (SerialEchoCommandData -> String)
-> ([SerialEchoCommandData] -> String -> String)
-> Show SerialEchoCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SerialEchoCommandData -> String -> String
showsPrec :: Int -> SerialEchoCommandData -> String -> String
$cshow :: SerialEchoCommandData -> String
show :: SerialEchoCommandData -> String
$cshowList :: [SerialEchoCommandData] -> String -> String
showList :: [SerialEchoCommandData] -> String -> String
Show, ReadPrec [SerialEchoCommandData]
ReadPrec SerialEchoCommandData
Int -> ReadS SerialEchoCommandData
ReadS [SerialEchoCommandData]
(Int -> ReadS SerialEchoCommandData)
-> ReadS [SerialEchoCommandData]
-> ReadPrec SerialEchoCommandData
-> ReadPrec [SerialEchoCommandData]
-> Read SerialEchoCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SerialEchoCommandData
readsPrec :: Int -> ReadS SerialEchoCommandData
$creadList :: ReadS [SerialEchoCommandData]
readList :: ReadS [SerialEchoCommandData]
$creadPrec :: ReadPrec SerialEchoCommandData
readPrec :: ReadPrec SerialEchoCommandData
$creadListPrec :: ReadPrec [SerialEchoCommandData]
readListPrec :: ReadPrec [SerialEchoCommandData]
Read, SerialEchoCommandData -> SerialEchoCommandData -> Bool
(SerialEchoCommandData -> SerialEchoCommandData -> Bool)
-> (SerialEchoCommandData -> SerialEchoCommandData -> Bool)
-> Eq SerialEchoCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SerialEchoCommandData -> SerialEchoCommandData -> Bool
== :: SerialEchoCommandData -> SerialEchoCommandData -> Bool
$c/= :: SerialEchoCommandData -> SerialEchoCommandData -> Bool
/= :: SerialEchoCommandData -> SerialEchoCommandData -> Bool
Eq)

makeLenses ''SerialEchoCommandData

-- |
--
data SerialOpenCommandData =
  SerialOpenCommandData {
    SerialOpenCommandData -> JsonRpcRequest
_jsonrpcSerialOpenCommandData   :: JsonRpcRequest
  , SerialOpenCommandData -> String
_nameSerialOpenCommandData      :: String
  , SerialOpenCommandData -> RawJsonByteString
_argumentsSerialOpenCommandData :: RawJsonByteString
  } deriving (Int -> SerialOpenCommandData -> String -> String
[SerialOpenCommandData] -> String -> String
SerialOpenCommandData -> String
(Int -> SerialOpenCommandData -> String -> String)
-> (SerialOpenCommandData -> String)
-> ([SerialOpenCommandData] -> String -> String)
-> Show SerialOpenCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SerialOpenCommandData -> String -> String
showsPrec :: Int -> SerialOpenCommandData -> String -> String
$cshow :: SerialOpenCommandData -> String
show :: SerialOpenCommandData -> String
$cshowList :: [SerialOpenCommandData] -> String -> String
showList :: [SerialOpenCommandData] -> String -> String
Show, ReadPrec [SerialOpenCommandData]
ReadPrec SerialOpenCommandData
Int -> ReadS SerialOpenCommandData
ReadS [SerialOpenCommandData]
(Int -> ReadS SerialOpenCommandData)
-> ReadS [SerialOpenCommandData]
-> ReadPrec SerialOpenCommandData
-> ReadPrec [SerialOpenCommandData]
-> Read SerialOpenCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SerialOpenCommandData
readsPrec :: Int -> ReadS SerialOpenCommandData
$creadList :: ReadS [SerialOpenCommandData]
readList :: ReadS [SerialOpenCommandData]
$creadPrec :: ReadPrec SerialOpenCommandData
readPrec :: ReadPrec SerialOpenCommandData
$creadListPrec :: ReadPrec [SerialOpenCommandData]
readListPrec :: ReadPrec [SerialOpenCommandData]
Read, SerialOpenCommandData -> SerialOpenCommandData -> Bool
(SerialOpenCommandData -> SerialOpenCommandData -> Bool)
-> (SerialOpenCommandData -> SerialOpenCommandData -> Bool)
-> Eq SerialOpenCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SerialOpenCommandData -> SerialOpenCommandData -> Bool
== :: SerialOpenCommandData -> SerialOpenCommandData -> Bool
$c/= :: SerialOpenCommandData -> SerialOpenCommandData -> Bool
/= :: SerialOpenCommandData -> SerialOpenCommandData -> Bool
Eq)

makeLenses ''SerialOpenCommandData

-- |
--
data SerialCloseCommandData =
  SerialCloseCommandData {
    SerialCloseCommandData -> JsonRpcRequest
_jsonrpcSerialCloseCommandData :: JsonRpcRequest
  } deriving (Int -> SerialCloseCommandData -> String -> String
[SerialCloseCommandData] -> String -> String
SerialCloseCommandData -> String
(Int -> SerialCloseCommandData -> String -> String)
-> (SerialCloseCommandData -> String)
-> ([SerialCloseCommandData] -> String -> String)
-> Show SerialCloseCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SerialCloseCommandData -> String -> String
showsPrec :: Int -> SerialCloseCommandData -> String -> String
$cshow :: SerialCloseCommandData -> String
show :: SerialCloseCommandData -> String
$cshowList :: [SerialCloseCommandData] -> String -> String
showList :: [SerialCloseCommandData] -> String -> String
Show, ReadPrec [SerialCloseCommandData]
ReadPrec SerialCloseCommandData
Int -> ReadS SerialCloseCommandData
ReadS [SerialCloseCommandData]
(Int -> ReadS SerialCloseCommandData)
-> ReadS [SerialCloseCommandData]
-> ReadPrec SerialCloseCommandData
-> ReadPrec [SerialCloseCommandData]
-> Read SerialCloseCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SerialCloseCommandData
readsPrec :: Int -> ReadS SerialCloseCommandData
$creadList :: ReadS [SerialCloseCommandData]
readList :: ReadS [SerialCloseCommandData]
$creadPrec :: ReadPrec SerialCloseCommandData
readPrec :: ReadPrec SerialCloseCommandData
$creadListPrec :: ReadPrec [SerialCloseCommandData]
readListPrec :: ReadPrec [SerialCloseCommandData]
Read, SerialCloseCommandData -> SerialCloseCommandData -> Bool
(SerialCloseCommandData -> SerialCloseCommandData -> Bool)
-> (SerialCloseCommandData -> SerialCloseCommandData -> Bool)
-> Eq SerialCloseCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SerialCloseCommandData -> SerialCloseCommandData -> Bool
== :: SerialCloseCommandData -> SerialCloseCommandData -> Bool
$c/= :: SerialCloseCommandData -> SerialCloseCommandData -> Bool
/= :: SerialCloseCommandData -> SerialCloseCommandData -> Bool
Eq)
  
makeLenses ''SerialCloseCommandData


-- |
--
data SerialReadCommandData =
  SerialReadCommandData {
    SerialReadCommandData -> JsonRpcRequest
_jsonrpcSerialReadCommandData :: JsonRpcRequest
  , SerialReadCommandData -> RawJsonByteString
_argumentsSerialReadCommandData :: RawJsonByteString
  } deriving (Int -> SerialReadCommandData -> String -> String
[SerialReadCommandData] -> String -> String
SerialReadCommandData -> String
(Int -> SerialReadCommandData -> String -> String)
-> (SerialReadCommandData -> String)
-> ([SerialReadCommandData] -> String -> String)
-> Show SerialReadCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SerialReadCommandData -> String -> String
showsPrec :: Int -> SerialReadCommandData -> String -> String
$cshow :: SerialReadCommandData -> String
show :: SerialReadCommandData -> String
$cshowList :: [SerialReadCommandData] -> String -> String
showList :: [SerialReadCommandData] -> String -> String
Show, ReadPrec [SerialReadCommandData]
ReadPrec SerialReadCommandData
Int -> ReadS SerialReadCommandData
ReadS [SerialReadCommandData]
(Int -> ReadS SerialReadCommandData)
-> ReadS [SerialReadCommandData]
-> ReadPrec SerialReadCommandData
-> ReadPrec [SerialReadCommandData]
-> Read SerialReadCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SerialReadCommandData
readsPrec :: Int -> ReadS SerialReadCommandData
$creadList :: ReadS [SerialReadCommandData]
readList :: ReadS [SerialReadCommandData]
$creadPrec :: ReadPrec SerialReadCommandData
readPrec :: ReadPrec SerialReadCommandData
$creadListPrec :: ReadPrec [SerialReadCommandData]
readListPrec :: ReadPrec [SerialReadCommandData]
Read, SerialReadCommandData -> SerialReadCommandData -> Bool
(SerialReadCommandData -> SerialReadCommandData -> Bool)
-> (SerialReadCommandData -> SerialReadCommandData -> Bool)
-> Eq SerialReadCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SerialReadCommandData -> SerialReadCommandData -> Bool
== :: SerialReadCommandData -> SerialReadCommandData -> Bool
$c/= :: SerialReadCommandData -> SerialReadCommandData -> Bool
/= :: SerialReadCommandData -> SerialReadCommandData -> Bool
Eq)
  
makeLenses ''SerialReadCommandData

-- |
--
data SerialWriteCommandData =
  SerialWriteCommandData {
    SerialWriteCommandData -> JsonRpcRequest
_jsonrpcSerialWriteCommandData :: JsonRpcRequest
  , SerialWriteCommandData -> RawJsonByteString
_argumentsSerialWriteCommandData :: RawJsonByteString
  } deriving (Int -> SerialWriteCommandData -> String -> String
[SerialWriteCommandData] -> String -> String
SerialWriteCommandData -> String
(Int -> SerialWriteCommandData -> String -> String)
-> (SerialWriteCommandData -> String)
-> ([SerialWriteCommandData] -> String -> String)
-> Show SerialWriteCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SerialWriteCommandData -> String -> String
showsPrec :: Int -> SerialWriteCommandData -> String -> String
$cshow :: SerialWriteCommandData -> String
show :: SerialWriteCommandData -> String
$cshowList :: [SerialWriteCommandData] -> String -> String
showList :: [SerialWriteCommandData] -> String -> String
Show, ReadPrec [SerialWriteCommandData]
ReadPrec SerialWriteCommandData
Int -> ReadS SerialWriteCommandData
ReadS [SerialWriteCommandData]
(Int -> ReadS SerialWriteCommandData)
-> ReadS [SerialWriteCommandData]
-> ReadPrec SerialWriteCommandData
-> ReadPrec [SerialWriteCommandData]
-> Read SerialWriteCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SerialWriteCommandData
readsPrec :: Int -> ReadS SerialWriteCommandData
$creadList :: ReadS [SerialWriteCommandData]
readList :: ReadS [SerialWriteCommandData]
$creadPrec :: ReadPrec SerialWriteCommandData
readPrec :: ReadPrec SerialWriteCommandData
$creadListPrec :: ReadPrec [SerialWriteCommandData]
readListPrec :: ReadPrec [SerialWriteCommandData]
Read, SerialWriteCommandData -> SerialWriteCommandData -> Bool
(SerialWriteCommandData -> SerialWriteCommandData -> Bool)
-> (SerialWriteCommandData -> SerialWriteCommandData -> Bool)
-> Eq SerialWriteCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SerialWriteCommandData -> SerialWriteCommandData -> Bool
== :: SerialWriteCommandData -> SerialWriteCommandData -> Bool
$c/= :: SerialWriteCommandData -> SerialWriteCommandData -> Bool
/= :: SerialWriteCommandData -> SerialWriteCommandData -> Bool
Eq)

makeLenses ''SerialWriteCommandData


-- |
--
data SerialMessageCommandData =
  SerialMessageCommandData {
    SerialMessageCommandData -> JsonRpcRequest
_jsonrpcSerialMessageCommandData   :: JsonRpcRequest
  , SerialMessageCommandData -> RawJsonByteString
_argumentsSerialMessageCommandData :: RawJsonByteString
  } deriving (Int -> SerialMessageCommandData -> String -> String
[SerialMessageCommandData] -> String -> String
SerialMessageCommandData -> String
(Int -> SerialMessageCommandData -> String -> String)
-> (SerialMessageCommandData -> String)
-> ([SerialMessageCommandData] -> String -> String)
-> Show SerialMessageCommandData
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SerialMessageCommandData -> String -> String
showsPrec :: Int -> SerialMessageCommandData -> String -> String
$cshow :: SerialMessageCommandData -> String
show :: SerialMessageCommandData -> String
$cshowList :: [SerialMessageCommandData] -> String -> String
showList :: [SerialMessageCommandData] -> String -> String
Show, ReadPrec [SerialMessageCommandData]
ReadPrec SerialMessageCommandData
Int -> ReadS SerialMessageCommandData
ReadS [SerialMessageCommandData]
(Int -> ReadS SerialMessageCommandData)
-> ReadS [SerialMessageCommandData]
-> ReadPrec SerialMessageCommandData
-> ReadPrec [SerialMessageCommandData]
-> Read SerialMessageCommandData
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SerialMessageCommandData
readsPrec :: Int -> ReadS SerialMessageCommandData
$creadList :: ReadS [SerialMessageCommandData]
readList :: ReadS [SerialMessageCommandData]
$creadPrec :: ReadPrec SerialMessageCommandData
readPrec :: ReadPrec SerialMessageCommandData
$creadListPrec :: ReadPrec [SerialMessageCommandData]
readListPrec :: ReadPrec [SerialMessageCommandData]
Read, SerialMessageCommandData -> SerialMessageCommandData -> Bool
(SerialMessageCommandData -> SerialMessageCommandData -> Bool)
-> (SerialMessageCommandData -> SerialMessageCommandData -> Bool)
-> Eq SerialMessageCommandData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SerialMessageCommandData -> SerialMessageCommandData -> Bool
== :: SerialMessageCommandData -> SerialMessageCommandData -> Bool
$c/= :: SerialMessageCommandData -> SerialMessageCommandData -> Bool
/= :: SerialMessageCommandData -> SerialMessageCommandData -> Bool
Eq)

makeLenses ''SerialMessageCommandData

-- |
--
data SerialCommand =
    SerialEchoCommand    SerialEchoCommandData
  | SerialOpenCommand    SerialOpenCommandData
  | SerialCloseCommand   SerialCloseCommandData
  | SerialReadCommand    SerialReadCommandData
  | SerialWriteCommand   SerialWriteCommandData
  | SerialMessageCommand SerialMessageCommandData
  deriving (Int -> SerialCommand -> String -> String
[SerialCommand] -> String -> String
SerialCommand -> String
(Int -> SerialCommand -> String -> String)
-> (SerialCommand -> String)
-> ([SerialCommand] -> String -> String)
-> Show SerialCommand
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
$cshowsPrec :: Int -> SerialCommand -> String -> String
showsPrec :: Int -> SerialCommand -> String -> String
$cshow :: SerialCommand -> String
show :: SerialCommand -> String
$cshowList :: [SerialCommand] -> String -> String
showList :: [SerialCommand] -> String -> String
Show, ReadPrec [SerialCommand]
ReadPrec SerialCommand
Int -> ReadS SerialCommand
ReadS [SerialCommand]
(Int -> ReadS SerialCommand)
-> ReadS [SerialCommand]
-> ReadPrec SerialCommand
-> ReadPrec [SerialCommand]
-> Read SerialCommand
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SerialCommand
readsPrec :: Int -> ReadS SerialCommand
$creadList :: ReadS [SerialCommand]
readList :: ReadS [SerialCommand]
$creadPrec :: ReadPrec SerialCommand
readPrec :: ReadPrec SerialCommand
$creadListPrec :: ReadPrec [SerialCommand]
readListPrec :: ReadPrec [SerialCommand]
Read, SerialCommand -> SerialCommand -> Bool
(SerialCommand -> SerialCommand -> Bool)
-> (SerialCommand -> SerialCommand -> Bool) -> Eq SerialCommand
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SerialCommand -> SerialCommand -> Bool
== :: SerialCommand -> SerialCommand -> Bool
$c/= :: SerialCommand -> SerialCommand -> Bool
/= :: SerialCommand -> SerialCommand -> Bool
Eq)


-- |
--
getJsonRpcSerialCommand :: SerialCommand -> JsonRpcRequest
getJsonRpcSerialCommand :: SerialCommand -> JsonRpcRequest
getJsonRpcSerialCommand (SerialEchoCommand    SerialEchoCommandData
d) = SerialEchoCommandData
dSerialEchoCommandData
-> Getting JsonRpcRequest SerialEchoCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SerialEchoCommandData JsonRpcRequest
Lens' SerialEchoCommandData JsonRpcRequest
jsonrpcSerialEchoCommandData
getJsonRpcSerialCommand (SerialOpenCommand    SerialOpenCommandData
d) = SerialOpenCommandData
dSerialOpenCommandData
-> Getting JsonRpcRequest SerialOpenCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SerialOpenCommandData JsonRpcRequest
Lens' SerialOpenCommandData JsonRpcRequest
jsonrpcSerialOpenCommandData
getJsonRpcSerialCommand (SerialCloseCommand   SerialCloseCommandData
d) = SerialCloseCommandData
dSerialCloseCommandData
-> Getting JsonRpcRequest SerialCloseCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SerialCloseCommandData JsonRpcRequest
Iso' SerialCloseCommandData JsonRpcRequest
jsonrpcSerialCloseCommandData
getJsonRpcSerialCommand (SerialReadCommand    SerialReadCommandData
d) = SerialReadCommandData
dSerialReadCommandData
-> Getting JsonRpcRequest SerialReadCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SerialReadCommandData JsonRpcRequest
Lens' SerialReadCommandData JsonRpcRequest
jsonrpcSerialReadCommandData
getJsonRpcSerialCommand (SerialWriteCommand   SerialWriteCommandData
d) = SerialWriteCommandData
dSerialWriteCommandData
-> Getting JsonRpcRequest SerialWriteCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SerialWriteCommandData JsonRpcRequest
Lens' SerialWriteCommandData JsonRpcRequest
jsonrpcSerialWriteCommandData
getJsonRpcSerialCommand (SerialMessageCommand SerialMessageCommandData
d) = SerialMessageCommandData
dSerialMessageCommandData
-> Getting JsonRpcRequest SerialMessageCommandData JsonRpcRequest
-> JsonRpcRequest
forall s a. s -> Getting a s a -> a
^.Getting JsonRpcRequest SerialMessageCommandData JsonRpcRequest
Lens' SerialMessageCommandData JsonRpcRequest
jsonrpcSerialMessageCommandData

--------------------------------------------------------------------------------
-- |
--
data DomainData = DomainData {
    DomainData -> Maybe String
_logDirDomainData            :: Maybe String
  , DomainData -> LogLevel
_logLevelDomainData          :: LogLevel
  , DomainData -> String
_toolsDirDomainData          :: String
  , DomainData -> String
_promptsDirDomainData        :: String
  , DomainData -> String
_resourcesDirDomainData      :: String
  , DomainData -> TQueue McpRequest
_requestQueueDomainData      :: TQueue McpRequest
  , DomainData -> TQueue McpResponse
_responseQueueDomainData     :: TQueue McpResponse
  , DomainData -> TQueue McpNotification
_notificationQueueDomainData :: TQueue McpNotification
  , DomainData -> TQueue Command
_commandQueueDomainData      :: TQueue Command
  , DomainData -> TQueue CmdRunCommand
_cmdRunQueueDomainData       :: TQueue CmdRunCommand
  , DomainData -> TQueue WatchCommand
_watchQueueDomainData        :: TQueue WatchCommand
  , DomainData -> TQueue ProcSpawnCommand
_procspawnQueueDomainData    :: TQueue ProcSpawnCommand
  , DomainData -> TQueue SocketCommand
_socketQueueDomainData       :: TQueue SocketCommand
  , DomainData -> TQueue SerialCommand
_serialQueueDomainData       :: TQueue SerialCommand
  , DomainData -> [String]
_promptsDomainData           :: [String]
  }

makeLenses ''DomainData

defaultDomainData :: IO DomainData
defaultDomainData :: IO DomainData
defaultDomainData = do
  Handle -> TextEncoding -> IO ()
hSetEncoding Handle
stdin  TextEncoding
utf8
  Handle -> BufferMode -> IO ()
hSetBuffering Handle
stdin BufferMode
LineBuffering

  Handle -> TextEncoding -> IO ()
hSetEncoding Handle
stdout TextEncoding
utf8
  Handle -> BufferMode -> IO ()
hSetBuffering Handle
stdout BufferMode
LineBuffering

  Handle -> TextEncoding -> IO ()
hSetEncoding Handle
stderr TextEncoding
utf8
  Handle -> BufferMode -> IO ()
hSetBuffering Handle
stderr BufferMode
LineBuffering

  TQueue McpRequest
reqQ <- IO (TQueue McpRequest)
forall a. IO (TQueue a)
newTQueueIO
  TQueue McpResponse
resQ <- IO (TQueue McpResponse)
forall a. IO (TQueue a)
newTQueueIO
  TQueue McpNotification
notQ <- IO (TQueue McpNotification)
forall a. IO (TQueue a)
newTQueueIO
  TQueue Command
cmdQ <- IO (TQueue Command)
forall a. IO (TQueue a)
newTQueueIO
  TQueue CmdRunCommand
cmdRunQ <- IO (TQueue CmdRunCommand)
forall a. IO (TQueue a)
newTQueueIO
  TQueue WatchCommand
watchQ  <- IO (TQueue WatchCommand)
forall a. IO (TQueue a)
newTQueueIO
  TQueue ProcSpawnCommand
procQ   <- IO (TQueue ProcSpawnCommand)
forall a. IO (TQueue a)
newTQueueIO
  TQueue SocketCommand
socketQ   <- IO (TQueue SocketCommand)
forall a. IO (TQueue a)
newTQueueIO
  TQueue SerialCommand
serialQ   <- IO (TQueue SerialCommand)
forall a. IO (TQueue a)
newTQueueIO
  DomainData -> IO DomainData
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return DomainData {
           _logDirDomainData :: Maybe String
_logDirDomainData            = Maybe String
forall a. Maybe a
Nothing
         , _logLevelDomainData :: LogLevel
_logLevelDomainData          = LogLevel
LevelDebug
         , _toolsDirDomainData :: String
_toolsDirDomainData          = String
"./tools"
         , _promptsDirDomainData :: String
_promptsDirDomainData        = String
"./prompts"
         , _resourcesDirDomainData :: String
_resourcesDirDomainData      = String
"./resources"
         , _requestQueueDomainData :: TQueue McpRequest
_requestQueueDomainData      = TQueue McpRequest
reqQ
         , _responseQueueDomainData :: TQueue McpResponse
_responseQueueDomainData     = TQueue McpResponse
resQ
         , _notificationQueueDomainData :: TQueue McpNotification
_notificationQueueDomainData = TQueue McpNotification
notQ
         , _commandQueueDomainData :: TQueue Command
_commandQueueDomainData      = TQueue Command
cmdQ
         , _cmdRunQueueDomainData :: TQueue CmdRunCommand
_cmdRunQueueDomainData       = TQueue CmdRunCommand
cmdRunQ
         , _watchQueueDomainData :: TQueue WatchCommand
_watchQueueDomainData        = TQueue WatchCommand
watchQ
         , _procspawnQueueDomainData :: TQueue ProcSpawnCommand
_procspawnQueueDomainData    = TQueue ProcSpawnCommand
procQ
         , _socketQueueDomainData :: TQueue SocketCommand
_socketQueueDomainData       = TQueue SocketCommand
socketQ
         , _serialQueueDomainData :: TQueue SerialCommand
_serialQueueDomainData       = TQueue SerialCommand
serialQ
         , _promptsDomainData :: [String]
_promptsDomainData           = [String]
forall a. Default a => a
def
         }

-- |
--
type ErrorData = String
type DomainContext a = DomainData -> IO a