-----------------------------------------------------------------------------
-- |
-- Module      :  DAP.Response
-- Copyright   :  (C) 2023 David M. Johnson
-- License     :  BSD3-style (see the file LICENSE)
-- Stability   :  experimental
-- Portability :  non-portable
----------------------------------------------------------------------------
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DerivingStrategies         #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE RecordWildCards            #-}
{-# LANGUAGE DeriveAnyClass             #-}
{-# LANGUAGE DeriveGeneric              #-}
----------------------------------------------------------------------------
module DAP.Response
  ( -- * Response message API
    sendAttachResponse
  , sendBreakpointLocationsResponse
  , sendCompletionsResponse
  , sendConfigurationDoneResponse
  , sendContinueResponse
  , sendDataBreakpointInfoResponse
  , sendDisassembleResponse
  , sendDisconnectResponse
  , sendEvaluateResponse
  , sendExceptionInfoResponse
  , sendGotoResponse
  , sendGotoTargetsResponse
  , sendInitializeResponse
  , sendLaunchResponse
  , sendLoadedSourcesResponse
  , sendModulesResponse
  , sendNextResponse
  , sendPauseResponse
  , sendReadMemoryResponse
  , sendRestartResponse
  , sendRestartFrameResponse
  , sendReverseContinueResponse
  , sendScopesResponse
  , sendSetBreakpointsResponse
  , sendSetDataBreakpointsResponse
  , sendSetExceptionBreakpointsResponse
  , sendSetExpressionResponse
  , sendSetFunctionBreakpointsResponse
  , sendSetInstructionBreakpointsResponse
  , sendSetVariableResponse
  , sendSourceResponse
  , sendStackTraceResponse
  , sendStepBackResponse
  , sendStepInResponse
  , sendStepInTargetsResponse
  , sendStepOutResponse
  , sendTerminateResponse
  , sendTerminateThreadsResponse
  , sendThreadsResponse
  , sendVariablesResponse
  , sendWriteMemoryResponse
  , sendRunInTerminalResponse
  , sendStartDebuggingResponse
  ) where
----------------------------------------------------------------------------
import           DAP.Adaptor
import           DAP.Types
----------------------------------------------------------------------------
-- | AttachResponse has no body by default
sendAttachResponse :: Adaptor app Request ()
sendAttachResponse :: forall app. Adaptor app Request ()
sendAttachResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | BreakpointLocationResponse has no body by default
sendBreakpointLocationsResponse
  :: [BreakpointLocation]
  -> Adaptor app Request ()
sendBreakpointLocationsResponse :: forall app. [BreakpointLocation] -> Adaptor app Request ()
sendBreakpointLocationsResponse
  = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse
  (Adaptor app Request () -> Adaptor app Request ())
-> ([BreakpointLocation] -> Adaptor app Request ())
-> [BreakpointLocation]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Breakpoints BreakpointLocation -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
  (Breakpoints BreakpointLocation -> Adaptor app Request ())
-> ([BreakpointLocation] -> Breakpoints BreakpointLocation)
-> [BreakpointLocation]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [BreakpointLocation] -> Breakpoints BreakpointLocation
forall breakpoint. [breakpoint] -> Breakpoints breakpoint
Breakpoints
----------------------------------------------------------------------------
-- | 'SetDataBreakpointsResponse'
sendSetDataBreakpointsResponse
  :: [Breakpoint]
  -> Adaptor app Request ()
sendSetDataBreakpointsResponse :: forall app. [Breakpoint] -> Adaptor app Request ()
sendSetDataBreakpointsResponse
  = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse
  (Adaptor app Request () -> Adaptor app Request ())
-> ([Breakpoint] -> Adaptor app Request ())
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Breakpoints Breakpoint -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
  (Breakpoints Breakpoint -> Adaptor app Request ())
-> ([Breakpoint] -> Breakpoints Breakpoint)
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Breakpoint] -> Breakpoints Breakpoint
forall breakpoint. [breakpoint] -> Breakpoints breakpoint
Breakpoints
----------------------------------------------------------------------------
-- | BreakpointResponse has no body by default
sendSetBreakpointsResponse
  :: [Breakpoint]
  -> Adaptor app Request ()
sendSetBreakpointsResponse :: forall app. [Breakpoint] -> Adaptor app Request ()
sendSetBreakpointsResponse
  = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse
  (Adaptor app Request () -> Adaptor app Request ())
-> ([Breakpoint] -> Adaptor app Request ())
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Breakpoints Breakpoint -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
  (Breakpoints Breakpoint -> Adaptor app Request ())
-> ([Breakpoint] -> Breakpoints Breakpoint)
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Breakpoint] -> Breakpoints Breakpoint
forall breakpoint. [breakpoint] -> Breakpoints breakpoint
Breakpoints
----------------------------------------------------------------------------
-- | SetInstructionsBreakpointResponse has no body by default
sendSetInstructionBreakpointsResponse
  :: [Breakpoint]
  -> Adaptor app Request ()
sendSetInstructionBreakpointsResponse :: forall app. [Breakpoint] -> Adaptor app Request ()
sendSetInstructionBreakpointsResponse
  = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse
  (Adaptor app Request () -> Adaptor app Request ())
-> ([Breakpoint] -> Adaptor app Request ())
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Breakpoints Breakpoint -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
  (Breakpoints Breakpoint -> Adaptor app Request ())
-> ([Breakpoint] -> Breakpoints Breakpoint)
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Breakpoint] -> Breakpoints Breakpoint
forall breakpoint. [breakpoint] -> Breakpoints breakpoint
Breakpoints
----------------------------------------------------------------------------
-- | SetFunctionBreakpointResponse has no body by default
sendSetFunctionBreakpointsResponse
  :: [Breakpoint]
  -> Adaptor app Request ()
sendSetFunctionBreakpointsResponse :: forall app. [Breakpoint] -> Adaptor app Request ()
sendSetFunctionBreakpointsResponse
  = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse
  (Adaptor app Request () -> Adaptor app Request ())
-> ([Breakpoint] -> Adaptor app Request ())
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Breakpoints Breakpoint -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
  (Breakpoints Breakpoint -> Adaptor app Request ())
-> ([Breakpoint] -> Breakpoints Breakpoint)
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Breakpoint] -> Breakpoints Breakpoint
forall breakpoint. [breakpoint] -> Breakpoints breakpoint
Breakpoints
----------------------------------------------------------------------------
-- | SetExceptionBreakpointsResponse has no body by default
sendSetExceptionBreakpointsResponse
  :: [Breakpoint]
  -> Adaptor app Request ()
sendSetExceptionBreakpointsResponse :: forall app. [Breakpoint] -> Adaptor app Request ()
sendSetExceptionBreakpointsResponse
  = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse
  (Adaptor app Request () -> Adaptor app Request ())
-> ([Breakpoint] -> Adaptor app Request ())
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Breakpoints Breakpoint -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
  (Breakpoints Breakpoint -> Adaptor app Request ())
-> ([Breakpoint] -> Breakpoints Breakpoint)
-> [Breakpoint]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Breakpoint] -> Breakpoints Breakpoint
forall breakpoint. [breakpoint] -> Breakpoints breakpoint
Breakpoints
----------------------------------------------------------------------------
-- | ContinueResponse
sendContinueResponse
  :: ContinueResponse
  -> Adaptor app Request ()
sendContinueResponse :: forall app. ContinueResponse -> Adaptor app Request ()
sendContinueResponse ContinueResponse
continueResponse = do
  Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (ContinueResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody ContinueResponse
continueResponse)
----------------------------------------------------------------------------
-- | ConfigurationDoneResponse
sendConfigurationDoneResponse
  :: Adaptor app Request ()
sendConfigurationDoneResponse :: forall app. Adaptor app Request ()
sendConfigurationDoneResponse = do
  Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | LaunchResponse
sendLaunchResponse
  :: Adaptor app Request ()
sendLaunchResponse :: forall app. Adaptor app Request ()
sendLaunchResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | RestartResponse
sendRestartResponse
  :: Adaptor app Request ()
sendRestartResponse :: forall app. Adaptor app Request ()
sendRestartResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | DisconnectResponse
sendDisconnectResponse
  :: Adaptor app Request ()
sendDisconnectResponse :: forall app. Adaptor app Request ()
sendDisconnectResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | TerminateResponse
sendTerminateResponse
  :: Adaptor app Request ()
sendTerminateResponse :: forall app. Adaptor app Request ()
sendTerminateResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | NextResponse
sendNextResponse
  :: Adaptor app Request ()
sendNextResponse :: forall app. Adaptor app Request ()
sendNextResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | StepInResponse
sendStepInResponse
  :: Adaptor app Request ()
sendStepInResponse :: forall app. Adaptor app Request ()
sendStepInResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | StepOutResponse
sendStepOutResponse
  :: Adaptor app Request ()
sendStepOutResponse :: forall app. Adaptor app Request ()
sendStepOutResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | StepBackResponse
sendStepBackResponse
  :: Adaptor app Request ()
sendStepBackResponse :: forall app. Adaptor app Request ()
sendStepBackResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | ReverseContinueResponse
sendReverseContinueResponse
  :: Adaptor app Request ()
sendReverseContinueResponse :: forall app. Adaptor app Request ()
sendReverseContinueResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | RestartFrameResponse
sendRestartFrameResponse
  :: Adaptor app Request ()
sendRestartFrameResponse :: forall app. Adaptor app Request ()
sendRestartFrameResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | InitializeReponse
sendInitializeResponse
  :: Adaptor app Request ()
sendInitializeResponse :: forall app. Adaptor app Request ()
sendInitializeResponse = do
  Capabilities
capabilities <- Adaptor app Request Capabilities
forall app request. Adaptor app request Capabilities
getServerCapabilities
  Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Capabilities -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody Capabilities
capabilities)
----------------------------------------------------------------------------
-- | GotoResponse
sendGotoResponse
  :: Adaptor app Request ()
sendGotoResponse :: forall app. Adaptor app Request ()
sendGotoResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | GotoTargetsResponse
sendGotoTargetsResponse
  :: Adaptor app Request ()
sendGotoTargetsResponse :: forall app. Adaptor app Request ()
sendGotoTargetsResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | PauseResponse
sendPauseResponse
  :: Adaptor app Request ()
sendPauseResponse :: forall app. Adaptor app Request ()
sendPauseResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
-- | TerminateThreadsResponse
sendTerminateThreadsResponse
  :: Adaptor app Request ()
sendTerminateThreadsResponse :: forall app. Adaptor app Request ()
sendTerminateThreadsResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------
sendModulesResponse :: ModulesResponse -> Adaptor app Request ()
sendModulesResponse :: forall app. ModulesResponse -> Adaptor app Request ()
sendModulesResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (ModulesResponse -> Adaptor app Request ())
-> ModulesResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ModulesResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendStackTraceResponse :: StackTraceResponse -> Adaptor app Request ()
sendStackTraceResponse :: forall app. StackTraceResponse -> Adaptor app Request ()
sendStackTraceResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (StackTraceResponse -> Adaptor app Request ())
-> StackTraceResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StackTraceResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendSourceResponse :: SourceResponse -> Adaptor app Request ()
sendSourceResponse :: forall app. SourceResponse -> Adaptor app Request ()
sendSourceResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (SourceResponse -> Adaptor app Request ())
-> SourceResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SourceResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendThreadsResponse :: [Thread] -> Adaptor app Request ()
sendThreadsResponse :: forall app. [Thread] -> Adaptor app Request ()
sendThreadsResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> ([Thread] -> Adaptor app Request ())
-> [Thread]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ThreadsResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody (ThreadsResponse -> Adaptor app Request ())
-> ([Thread] -> ThreadsResponse)
-> [Thread]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Thread] -> ThreadsResponse
ThreadsResponse
----------------------------------------------------------------------------
sendLoadedSourcesResponse :: [Source] -> Adaptor app Request ()
sendLoadedSourcesResponse :: forall app. [Source] -> Adaptor app Request ()
sendLoadedSourcesResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> ([Source] -> Adaptor app Request ())
-> [Source]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LoadedSourcesResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody (LoadedSourcesResponse -> Adaptor app Request ())
-> ([Source] -> LoadedSourcesResponse)
-> [Source]
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Source] -> LoadedSourcesResponse
LoadedSourcesResponse
----------------------------------------------------------------------------
sendWriteMemoryResponse :: WriteMemoryResponse -> Adaptor app Request ()
sendWriteMemoryResponse :: forall app. WriteMemoryResponse -> Adaptor app Request ()
sendWriteMemoryResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (WriteMemoryResponse -> Adaptor app Request ())
-> WriteMemoryResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WriteMemoryResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendReadMemoryResponse :: ReadMemoryResponse -> Adaptor app Request ()
sendReadMemoryResponse :: forall app. ReadMemoryResponse -> Adaptor app Request ()
sendReadMemoryResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (ReadMemoryResponse -> Adaptor app Request ())
-> ReadMemoryResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ReadMemoryResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendCompletionsResponse :: CompletionsResponse -> Adaptor app Request ()
sendCompletionsResponse :: forall app. CompletionsResponse -> Adaptor app Request ()
sendCompletionsResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (CompletionsResponse -> Adaptor app Request ())
-> CompletionsResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CompletionsResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendDataBreakpointInfoResponse :: DataBreakpointInfoResponse -> Adaptor app Request ()
sendDataBreakpointInfoResponse :: forall app. DataBreakpointInfoResponse -> Adaptor app Request ()
sendDataBreakpointInfoResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (DataBreakpointInfoResponse -> Adaptor app Request ())
-> DataBreakpointInfoResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DataBreakpointInfoResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendDisassembleResponse :: DisassembleResponse -> Adaptor app Request ()
sendDisassembleResponse :: forall app. DisassembleResponse -> Adaptor app Request ()
sendDisassembleResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (DisassembleResponse -> Adaptor app Request ())
-> DisassembleResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DisassembleResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendEvaluateResponse :: EvaluateResponse -> Adaptor app Request ()
sendEvaluateResponse :: forall app. EvaluateResponse -> Adaptor app Request ()
sendEvaluateResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (EvaluateResponse -> Adaptor app Request ())
-> EvaluateResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EvaluateResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendExceptionInfoResponse :: ExceptionInfoResponse -> Adaptor app Request ()
sendExceptionInfoResponse :: forall app. ExceptionInfoResponse -> Adaptor app Request ()
sendExceptionInfoResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (ExceptionInfoResponse -> Adaptor app Request ())
-> ExceptionInfoResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ExceptionInfoResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendScopesResponse :: ScopesResponse -> Adaptor app Request ()
sendScopesResponse :: forall app. ScopesResponse -> Adaptor app Request ()
sendScopesResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (ScopesResponse -> Adaptor app Request ())
-> ScopesResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ScopesResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendSetExpressionResponse :: SetExpressionResponse -> Adaptor app Request ()
sendSetExpressionResponse :: forall app. SetExpressionResponse -> Adaptor app Request ()
sendSetExpressionResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (SetExpressionResponse -> Adaptor app Request ())
-> SetExpressionResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetExpressionResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendSetVariableResponse :: SetVariableResponse -> Adaptor app Request ()
sendSetVariableResponse :: forall app. SetVariableResponse -> Adaptor app Request ()
sendSetVariableResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (SetVariableResponse -> Adaptor app Request ())
-> SetVariableResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SetVariableResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendStepInTargetsResponse :: StepInTargetsResponse -> Adaptor app Request ()
sendStepInTargetsResponse :: forall app. StepInTargetsResponse -> Adaptor app Request ()
sendStepInTargetsResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (StepInTargetsResponse -> Adaptor app Request ())
-> StepInTargetsResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StepInTargetsResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendVariablesResponse :: VariablesResponse -> Adaptor app Request ()
sendVariablesResponse :: forall app. VariablesResponse -> Adaptor app Request ()
sendVariablesResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (VariablesResponse -> Adaptor app Request ())
-> VariablesResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VariablesResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendRunInTerminalResponse :: RunInTerminalResponse -> Adaptor app Request ()
sendRunInTerminalResponse :: forall app. RunInTerminalResponse -> Adaptor app Request ()
sendRunInTerminalResponse = Adaptor app Request () -> Adaptor app Request ()
forall app. Adaptor app Request () -> Adaptor app Request ()
sendSuccesfulResponse (Adaptor app Request () -> Adaptor app Request ())
-> (RunInTerminalResponse -> Adaptor app Request ())
-> RunInTerminalResponse
-> Adaptor app Request ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. RunInTerminalResponse -> Adaptor app Request ()
forall value app request.
ToJSON value =>
value -> Adaptor app request ()
setBody
----------------------------------------------------------------------------
sendStartDebuggingResponse :: Adaptor app Request ()
sendStartDebuggingResponse :: forall app. Adaptor app Request ()
sendStartDebuggingResponse = Adaptor app Request ()
forall app. Adaptor app Request ()
sendSuccesfulEmptyResponse
----------------------------------------------------------------------------