Commit 8f527b2

committed

- Added ObjectLifetime map and Var/Scope/Frame ID variables

- Added defaults for Events and Types - Moved JSON serialization logic to use Generic - Refactored and simplified Server.hs code - Removed IORefs - Added 'send' and 'sendWait' - Added ThreadState helpers - Added ExceptT - 'AdaptorClient' -> 'Adaptor' - Removed some "adaptor" prefixes in AdaptorState - Fixed some JSON serialization bugs

1 parent 6927d5d commit 8f527b2Copy full SHA for 8f527b2

File tree

8 files changed

+1446

-941

lines changed

dap
- dap.cabal
- exe
  - Main.hs
- src/DAP

8 files changed

+1446

-941

lines changed

`‎dap/dap.cabal`

Lines changed: 1 addition & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -58,6 +58,7 @@ library`
`58`	`58`	`aeson`
`59`	`59`	`, aeson-pretty`
`60`	`60`	`, base < 5`
	`61`	`+ , containers`
`61`	`62`	`, bytestring`
`62`	`63`	`, lifted-base`
`63`	`64`	`, mtl`

`‎dap/exe/Main.hs`

Lines changed: 476 additions & 346 deletions

Large diffs are not rendered by default.

`‎dap/src/DAP/Adaptor.hs`

Lines changed: 227 additions & 109 deletions

Large diffs are not rendered by default.

`‎dap/src/DAP/Event.hs`

Lines changed: 69 additions & 19 deletions

Original file line number	Diff line number	Diff line change
`@@ -33,59 +33,109 @@ module DAP.Event`
`33`	`33`	`, sendStoppedEvent`
`34`	`34`	`, sendTerminatedEvent`
`35`	`35`	`, sendThreadEvent`
	`36`	`+ -- * Defaults`
	`37`	`+ , defaultContinuedEvent`
	`38`	`+ , defaultExitedEvent`
	`39`	`+ , defaultInvalidatedEvent`
	`40`	`+ , defaultMemoryEvent`
	`41`	`+ , defaultOutputEvent`
	`42`	`+ , defaultProcessEvent`
	`43`	`+ , defaultProgressEndEvent`
	`44`	`+ , defaultProgressStartEvent`
	`45`	`+ , defaultProgressUpdateEvent`
	`46`	`+ , defaultStoppedEvent`
	`47`	`+ , defaultTerminatedEvent`
	`48`	`+ , defaultThreadEvent`
`36`	`49`	`) where`
`37`	`50`	`----------------------------------------------------------------------------`
`38`	`51`	`import DAP.Types`
`39`	`52`	`import DAP.Adaptor`
`40`	`53`	`----------------------------------------------------------------------------`
`41`		`-sendBreakpointEvent :: AdaptorClient app ()`
`42`		`-sendBreakpointEvent = sendSuccesfulEvent EventTypeBreakpoint (pure())`
	`54`	`+sendBreakpointEvent :: BreakpointEvent->Adaptor app ()`
	`55`	`+sendBreakpointEvent = sendSuccesfulEvent EventTypeBreakpoint . setBody`
`43`	`56`	`----------------------------------------------------------------------------`
`44`		`-sendCapabilitiesEvent :: AdaptorClient app ()`
`45`		`-sendCapabilitiesEvent = sendSuccesfulEvent EventTypeCapabilities (pure())`
	`57`	`+sendCapabilitiesEvent :: CapabilitiesEvent->Adaptor app ()`
	`58`	`+sendCapabilitiesEvent = sendSuccesfulEvent EventTypeCapabilities . setBody`
`46`	`59`	`----------------------------------------------------------------------------`
`47`		`-sendContinuedEvent :: ContinuedEvent -> AdaptorClient app ()`
	`60`	`+sendContinuedEvent :: ContinuedEvent -> Adaptor app ()`
`48`	`61`	`sendContinuedEvent = sendSuccesfulEvent EventTypeContinued . setBody`
`49`	`62`	`----------------------------------------------------------------------------`
`50`		`-sendExitedEvent :: ExitedEvent -> AdaptorClient app ()`
	`63`	`+defaultContinuedEvent :: ContinuedEvent`
	`64`	`+defaultContinuedEvent = ContinuedEvent 0 False`
	`65`	`+----------------------------------------------------------------------------`
	`66`	`+sendExitedEvent :: ExitedEvent -> Adaptor app ()`
`51`	`67`	`sendExitedEvent = sendSuccesfulEvent EventTypeExited . setBody`
`52`	`68`	`----------------------------------------------------------------------------`
`53`		`-sendInitializedEvent :: AdaptorClient app ()`
	`69`	`+defaultExitedEvent :: ExitedEvent`
	`70`	`+defaultExitedEvent = ExitedEvent 0`
	`71`	`+----------------------------------------------------------------------------`
	`72`	`+sendInitializedEvent :: Adaptor app ()`
`54`	`73`	`sendInitializedEvent = sendSuccesfulEvent EventTypeInitialized (pure ())`
`55`	`74`	`----------------------------------------------------------------------------`
`56`		`-sendInvalidatedEvent :: InvalidatedEvent -> AdaptorClient app ()`
	`75`	`+sendInvalidatedEvent :: InvalidatedEvent -> Adaptor app ()`
`57`	`76`	`sendInvalidatedEvent = sendSuccesfulEvent EventTypeInvalidated . setBody`
`58`	`77`	`----------------------------------------------------------------------------`
`59`		`-sendLoadedSourceEvent :: LoadedSourceEvent -> AdaptorClient app ()`
	`78`	`+defaultInvalidatedEvent :: InvalidatedEvent`
	`79`	`+defaultInvalidatedEvent = InvalidatedEvent [] Nothing Nothing`
	`80`	`+----------------------------------------------------------------------------`
	`81`	`+sendLoadedSourceEvent :: LoadedSourceEvent -> Adaptor app ()`
`60`	`82`	`sendLoadedSourceEvent = sendSuccesfulEvent EventTypeLoadedSource . setBody`
`61`	`83`	`----------------------------------------------------------------------------`
`62`		`-sendMemoryEvent :: MemoryEvent -> AdaptorClient app ()`
	`84`	`+sendMemoryEvent :: MemoryEvent -> Adaptor app ()`
`63`	`85`	`sendMemoryEvent = sendSuccesfulEvent EventTypeMemory . setBody`
`64`	`86`	`----------------------------------------------------------------------------`
`65`		`-sendModuleEvent :: ModuleEvent -> AdaptorClient app ()`
	`87`	`+defaultMemoryEvent :: MemoryEvent`
	`88`	`+defaultMemoryEvent = MemoryEvent mempty 0 0`
	`89`	`+----------------------------------------------------------------------------`
	`90`	`+sendModuleEvent :: ModuleEvent -> Adaptor app ()`
`66`	`91`	`sendModuleEvent = sendSuccesfulEvent EventTypeModule . setBody`
`67`	`92`	`----------------------------------------------------------------------------`
`68`		`-sendOutputEvent :: OutputEvent -> AdaptorClient app ()`
	`93`	`+sendOutputEvent :: OutputEvent -> Adaptor app ()`
`69`	`94`	`sendOutputEvent = sendSuccesfulEvent EventTypeOutput . setBody`
`70`	`95`	`----------------------------------------------------------------------------`
`71`		`-sendProcessEvent :: ProcessEvent -> AdaptorClient app ()`
	`96`	`+defaultOutputEvent :: OutputEvent`
	`97`	`+defaultOutputEvent = OutputEvent Nothing mempty Nothing Nothing Nothing Nothing Nothing Nothing`
	`98`	`+----------------------------------------------------------------------------`
	`99`	`+sendProcessEvent :: ProcessEvent -> Adaptor app ()`
`72`	`100`	`sendProcessEvent = sendSuccesfulEvent EventTypeProcess . setBody`
`73`	`101`	`----------------------------------------------------------------------------`
`74`		`-sendProgressEndEvent :: ProgressEndEvent -> AdaptorClient app ()`
	`102`	`+defaultProcessEvent :: ProcessEvent`
	`103`	`+defaultProcessEvent = ProcessEvent mempty Nothing True Nothing Nothing`
	`104`	`+----------------------------------------------------------------------------`
	`105`	`+sendProgressEndEvent :: ProgressEndEvent -> Adaptor app ()`
`75`	`106`	`sendProgressEndEvent = sendSuccesfulEvent EventTypeProgressEnd . setBody`
`76`	`107`	`----------------------------------------------------------------------------`
`77`		`-sendProgressStartEvent :: ProgressStartEvent -> AdaptorClient app ()`
	`108`	`+defaultProgressEndEvent :: ProgressEndEvent`
	`109`	`+defaultProgressEndEvent = ProgressEndEvent mempty Nothing`
	`110`	`+----------------------------------------------------------------------------`
	`111`	`+sendProgressStartEvent :: ProgressStartEvent -> Adaptor app ()`
`78`	`112`	`sendProgressStartEvent = sendSuccesfulEvent EventTypeProgressStart . setBody`
`79`	`113`	`----------------------------------------------------------------------------`
`80`		`-sendProgressUpdateEvent :: ProgressUpdateEvent -> AdaptorClient app ()`
	`114`	`+defaultProgressStartEvent :: ProgressStartEvent`
	`115`	`+defaultProgressStartEvent = ProgressStartEvent mempty mempty Nothing False Nothing Nothing`
	`116`	`+----------------------------------------------------------------------------`
	`117`	`+sendProgressUpdateEvent :: ProgressUpdateEvent -> Adaptor app ()`
`81`	`118`	`sendProgressUpdateEvent = sendSuccesfulEvent EventTypeProgressUpdate . setBody`
`82`	`119`	`----------------------------------------------------------------------------`
`83`		`-sendStoppedEvent :: StoppedEvent -> AdaptorClient app ()`
	`120`	`+defaultProgressUpdateEvent :: ProgressUpdateEvent`
	`121`	`+defaultProgressUpdateEvent = ProgressUpdateEvent mempty Nothing Nothing`
	`122`	`+----------------------------------------------------------------------------`
	`123`	`+sendStoppedEvent :: StoppedEvent -> Adaptor app ()`
`84`	`124`	`sendStoppedEvent = sendSuccesfulEvent EventTypeStopped . setBody`
`85`	`125`	`----------------------------------------------------------------------------`
`86`		`-sendTerminatedEvent :: TerminatedEvent -> AdaptorClient app ()`
	`126`	`+defaultStoppedEvent :: StoppedEvent`
	`127`	`+defaultStoppedEvent = StoppedEvent StoppedEventReasonStep Nothing (Just 0) False Nothing False []`
	`128`	`+----------------------------------------------------------------------------`
	`129`	`+sendTerminatedEvent :: TerminatedEvent -> Adaptor app ()`
`87`	`130`	`sendTerminatedEvent = sendSuccesfulEvent EventTypeTerminated . setBody`
`88`	`131`	`----------------------------------------------------------------------------`
`89`		`-sendThreadEvent :: ThreadEvent -> AdaptorClient app ()`
	`132`	`+defaultTerminatedEvent :: TerminatedEvent`
	`133`	`+defaultTerminatedEvent = TerminatedEvent False`
	`134`	`+----------------------------------------------------------------------------`
	`135`	`+sendThreadEvent :: ThreadEvent -> Adaptor app ()`
`90`	`136`	`sendThreadEvent = sendSuccesfulEvent EventTypeThread . setBody`
`91`	`137`	`----------------------------------------------------------------------------`
	`138`	`+defaultThreadEvent :: ThreadEvent`
	`139`	`+defaultThreadEvent = ThreadEvent ThreadEventReasonStarted 0`
	`140`	`+----------------------------------------------------------------------------`
	`141`	`+`

`‎dap/src/DAP/Response.hs`

Lines changed: 43 additions & 43 deletions

Original file line number	Diff line number	Diff line change
`@@ -65,13 +65,13 @@ import DAP.Adaptor`
`65`	`65`	`import DAP.Types`
`66`	`66`	`----------------------------------------------------------------------------`
`67`	`67`	`-- \| AttachResponse has no body by default`
`68`		`-sendAttachResponse :: AdaptorClient app ()`
	`68`	`+sendAttachResponse :: Adaptor app ()`
`69`	`69`	`sendAttachResponse = sendSuccesfulEmptyResponse`
`70`	`70`	`----------------------------------------------------------------------------`
`71`	`71`	`-- \| BreakpointLocationResponse has no body by default`
`72`	`72`	`sendBreakpointLocationsResponse`
`73`	`73`	`:: [BreakpointLocation]`
`74`		`- -> AdaptorClient app ()`
	`74`	`+ -> Adaptor app ()`
`75`	`75`	`sendBreakpointLocationsResponse`
`76`	`76`	`= sendSuccesfulResponse`
`77`	`77`	`. setBody`
`@@ -80,7 +80,7 @@ sendBreakpointLocationsResponse`
`80`	`80`	`-- \| 'SetDataBreakpointsResponse'`
`81`	`81`	`sendSetDataBreakpointsResponse`
`82`	`82`	`:: [Breakpoint]`
`83`		`- -> AdaptorClient app ()`
	`83`	`+ -> Adaptor app ()`
`84`	`84`	`sendSetDataBreakpointsResponse`
`85`	`85`	`= sendSuccesfulResponse`
`86`	`86`	`. setBody`
`@@ -89,7 +89,7 @@ sendSetDataBreakpointsResponse`
`89`	`89`	`-- \| BreakpointResponse has no body by default`
`90`	`90`	`sendSetBreakpointsResponse`
`91`	`91`	`:: [Breakpoint]`
`92`		`- -> AdaptorClient app ()`
	`92`	`+ -> Adaptor app ()`
`93`	`93`	`sendSetBreakpointsResponse`
`94`	`94`	`= sendSuccesfulResponse`
`95`	`95`	`. setBody`
`@@ -98,7 +98,7 @@ sendSetBreakpointsResponse`
`98`	`98`	`-- \| SetInstructionsBreakpointResponse has no body by default`
`99`	`99`	`sendSetInstructionBreakpointsResponse`
`100`	`100`	`:: [Breakpoint]`
`101`		`- -> AdaptorClient app ()`
	`101`	`+ -> Adaptor app ()`
`102`	`102`	`sendSetInstructionBreakpointsResponse`
`103`	`103`	`= sendSuccesfulResponse`
`104`	`104`	`. setBody`
`@@ -107,7 +107,7 @@ sendSetInstructionBreakpointsResponse`
`107`	`107`	`-- \| SetFunctionBreakpointResponse has no body by default`
`108`	`108`	`sendSetFunctionBreakpointsResponse`
`109`	`109`	`:: [Breakpoint]`
`110`		`- -> AdaptorClient app ()`
	`110`	`+ -> Adaptor app ()`
`111`	`111`	`sendSetFunctionBreakpointsResponse`
`112`	`112`	`= sendSuccesfulResponse`
`113`	`113`	`. setBody`
`@@ -116,7 +116,7 @@ sendSetFunctionBreakpointsResponse`
`116`	`116`	`-- \| SetExceptionBreakpointsResponse has no body by default`
`117`	`117`	`sendSetExceptionBreakpointsResponse`
`118`	`118`	`:: [Breakpoint]`
`119`		`- -> AdaptorClient app ()`
	`119`	`+ -> Adaptor app ()`
`120`	`120`	`sendSetExceptionBreakpointsResponse`
`121`	`121`	`= sendSuccesfulResponse`
`122`	`122`	`. setBody`
`@@ -125,147 +125,147 @@ sendSetExceptionBreakpointsResponse`
`125`	`125`	`-- \| ContinueResponse`
`126`	`126`	`sendContinueResponse`
`127`	`127`	`:: ContinueResponse`
`128`		`- -> AdaptorClient app ()`
	`128`	`+ -> Adaptor app ()`
`129`	`129`	`sendContinueResponse continueResponse = do`
`130`	`130`	`sendSuccesfulResponse (setBody continueResponse)`
`131`	`131`	`----------------------------------------------------------------------------`
`132`	`132`	`-- \| ConfigurationDoneResponse`
`133`	`133`	`sendConfigurationDoneResponse`
`134`		`- :: AdaptorClient app ()`
	`134`	`+ :: Adaptor app ()`
`135`	`135`	`sendConfigurationDoneResponse = do`
`136`	`136`	`sendSuccesfulEmptyResponse`
`137`	`137`	`----------------------------------------------------------------------------`
`138`	`138`	`-- \| LaunchResponse`
`139`	`139`	`sendLaunchResponse`
`140`		`- :: AdaptorClient app ()`
	`140`	`+ :: Adaptor app ()`
`141`	`141`	`sendLaunchResponse = sendSuccesfulEmptyResponse`
`142`	`142`	`----------------------------------------------------------------------------`
`143`	`143`	`-- \| RestartResponse`
`144`	`144`	`sendRestartResponse`
`145`		`- :: AdaptorClient app ()`
	`145`	`+ :: Adaptor app ()`
`146`	`146`	`sendRestartResponse = sendSuccesfulEmptyResponse`
`147`	`147`	`----------------------------------------------------------------------------`
`148`	`148`	`-- \| DisconnectResponse`
`149`	`149`	`sendDisconnectResponse`
`150`		`- :: AdaptorClient app ()`
	`150`	`+ :: Adaptor app ()`
`151`	`151`	`sendDisconnectResponse = sendSuccesfulEmptyResponse`
`152`	`152`	`----------------------------------------------------------------------------`
`153`	`153`	`-- \| TerminateResponse`
`154`	`154`	`sendTerminateResponse`
`155`		`- :: AdaptorClient app ()`
	`155`	`+ :: Adaptor app ()`
`156`	`156`	`sendTerminateResponse = sendSuccesfulEmptyResponse`
`157`	`157`	`----------------------------------------------------------------------------`
`158`	`158`	`-- \| NextResponse`
`159`	`159`	`sendNextResponse`
`160`		`- :: AdaptorClient app ()`
	`160`	`+ :: Adaptor app ()`
`161`	`161`	`sendNextResponse = sendSuccesfulEmptyResponse`
`162`	`162`	`----------------------------------------------------------------------------`
`163`	`163`	`-- \| StepInResponse`
`164`	`164`	`sendStepInResponse`
`165`		`- :: AdaptorClient app ()`
	`165`	`+ :: Adaptor app ()`
`166`	`166`	`sendStepInResponse = sendSuccesfulEmptyResponse`
`167`	`167`	`----------------------------------------------------------------------------`
`168`	`168`	`-- \| StepOutResponse`
`169`	`169`	`sendStepOutResponse`
`170`		`- :: AdaptorClient app ()`
	`170`	`+ :: Adaptor app ()`
`171`	`171`	`sendStepOutResponse = sendSuccesfulEmptyResponse`
`172`	`172`	`----------------------------------------------------------------------------`
`173`	`173`	`-- \| StepBackResponse`
`174`	`174`	`sendStepBackResponse`
`175`		`- :: AdaptorClient app ()`
	`175`	`+ :: Adaptor app ()`
`176`	`176`	`sendStepBackResponse = sendSuccesfulEmptyResponse`
`177`	`177`	`----------------------------------------------------------------------------`
`178`	`178`	`-- \| ReverseContinueResponse`
`179`	`179`	`sendReverseContinueResponse`
`180`		`- :: AdaptorClient app ()`
	`180`	`+ :: Adaptor app ()`
`181`	`181`	`sendReverseContinueResponse = sendSuccesfulEmptyResponse`
`182`	`182`	`----------------------------------------------------------------------------`
`183`	`183`	`-- \| RestartFrameResponse`
`184`	`184`	`sendRestartFrameResponse`
`185`		`- :: AdaptorClient app ()`
	`185`	`+ :: Adaptor app ()`
`186`	`186`	`sendRestartFrameResponse = sendSuccesfulEmptyResponse`
`187`	`187`	`----------------------------------------------------------------------------`
`188`	`188`	`-- \| InitializeReponse`
`189`	`189`	`sendInitializeResponse`
`190`		`- :: AdaptorClient app ()`
	`190`	`+ :: Adaptor app ()`
`191`	`191`	`sendInitializeResponse = do`
`192`	`192`	`capabilities <- getServerCapabilities`
`193`	`193`	`sendSuccesfulResponse (setBody capabilities)`
`194`	`194`	`----------------------------------------------------------------------------`
`195`	`195`	`-- \| GotoResponse`
`196`	`196`	`sendGotoResponse`
`197`		`- :: AdaptorClient app ()`
	`197`	`+ :: Adaptor app ()`
`198`	`198`	`sendGotoResponse = sendSuccesfulEmptyResponse`
`199`	`199`	`----------------------------------------------------------------------------`
`200`	`200`	`-- \| GotoTargetsResponse`
`201`	`201`	`sendGotoTargetsResponse`
`202`		`- :: AdaptorClient app ()`
	`202`	`+ :: Adaptor app ()`
`203`	`203`	`sendGotoTargetsResponse = sendSuccesfulEmptyResponse`
`204`	`204`	`----------------------------------------------------------------------------`
`205`	`205`	`-- \| PauseResponse`
`206`	`206`	`sendPauseResponse`
`207`		`- :: AdaptorClient app ()`
	`207`	`+ :: Adaptor app ()`
`208`	`208`	`sendPauseResponse = sendSuccesfulEmptyResponse`
`209`	`209`	`----------------------------------------------------------------------------`
`210`	`210`	`-- \| TerminateThreadsResponse`
`211`	`211`	`sendTerminateThreadsResponse`
`212`		`- :: AdaptorClient app ()`
	`212`	`+ :: Adaptor app ()`
`213`	`213`	`sendTerminateThreadsResponse = sendSuccesfulEmptyResponse`
`214`	`214`	`----------------------------------------------------------------------------`
`215`		`-sendModulesResponse :: ModulesResponse -> AdaptorClient app ()`
	`215`	`+sendModulesResponse :: ModulesResponse -> Adaptor app ()`
`216`	`216`	`sendModulesResponse = sendSuccesfulResponse . setBody`
`217`	`217`	`----------------------------------------------------------------------------`
`218`		`-sendStackTraceResponse :: StackTraceResponse -> AdaptorClient app ()`
	`218`	`+sendStackTraceResponse :: StackTraceResponse -> Adaptor app ()`
`219`	`219`	`sendStackTraceResponse = sendSuccesfulResponse . setBody`
`220`	`220`	`----------------------------------------------------------------------------`
`221`		`-sendSourceResponse :: SourceResponse -> AdaptorClient app ()`
	`221`	`+sendSourceResponse :: SourceResponse -> Adaptor app ()`
`222`	`222`	`sendSourceResponse = sendSuccesfulResponse . setBody`
`223`	`223`	`----------------------------------------------------------------------------`
`224`		`-sendThreadsResponse :: [Thread] -> AdaptorClient app ()`
	`224`	`+sendThreadsResponse :: [Thread] -> Adaptor app ()`
`225`	`225`	`sendThreadsResponse = sendSuccesfulResponse . setBody . ThreadsResponse`
`226`	`226`	`----------------------------------------------------------------------------`
`227`		`-sendLoadedSourcesResponse :: [Source] -> AdaptorClient app ()`
	`227`	`+sendLoadedSourcesResponse :: [Source] -> Adaptor app ()`
`228`	`228`	`sendLoadedSourcesResponse = sendSuccesfulResponse . setBody . LoadedSourcesResponse`
`229`	`229`	`----------------------------------------------------------------------------`
`230`		`-sendWriteMemoryResponse :: WriteMemoryResponse -> AdaptorClient app ()`
	`230`	`+sendWriteMemoryResponse :: WriteMemoryResponse -> Adaptor app ()`
`231`	`231`	`sendWriteMemoryResponse = sendSuccesfulResponse . setBody`
`232`	`232`	`----------------------------------------------------------------------------`
`233`		`-sendReadMemoryResponse :: ReadMemoryResponse -> AdaptorClient app ()`
	`233`	`+sendReadMemoryResponse :: ReadMemoryResponse -> Adaptor app ()`
`234`	`234`	`sendReadMemoryResponse = sendSuccesfulResponse . setBody`
`235`	`235`	`----------------------------------------------------------------------------`
`236`		`-sendCompletionsResponse :: CompletionsResponse -> AdaptorClient app ()`
	`236`	`+sendCompletionsResponse :: CompletionsResponse -> Adaptor app ()`
`237`	`237`	`sendCompletionsResponse = sendSuccesfulResponse . setBody`
`238`	`238`	`----------------------------------------------------------------------------`
`239`		`-sendDataBreakpointInfoResponse :: DataBreakpointInfoResponse -> AdaptorClient app ()`
	`239`	`+sendDataBreakpointInfoResponse :: DataBreakpointInfoResponse -> Adaptor app ()`
`240`	`240`	`sendDataBreakpointInfoResponse = sendSuccesfulResponse . setBody`
`241`	`241`	`----------------------------------------------------------------------------`
`242`		`-sendDisassembleResponse :: DisassembleResponse -> AdaptorClient app ()`
	`242`	`+sendDisassembleResponse :: DisassembleResponse -> Adaptor app ()`
`243`	`243`	`sendDisassembleResponse = sendSuccesfulResponse . setBody`
`244`	`244`	`----------------------------------------------------------------------------`
`245`		`-sendEvaluateResponse :: EvaluateResponse -> AdaptorClient app ()`
	`245`	`+sendEvaluateResponse :: EvaluateResponse -> Adaptor app ()`
`246`	`246`	`sendEvaluateResponse = sendSuccesfulResponse . setBody`
`247`	`247`	`----------------------------------------------------------------------------`
`248`		`-sendExceptionInfoResponse :: ExceptionInfoResponse -> AdaptorClient app ()`
	`248`	`+sendExceptionInfoResponse :: ExceptionInfoResponse -> Adaptor app ()`
`249`	`249`	`sendExceptionInfoResponse = sendSuccesfulResponse . setBody`
`250`	`250`	`----------------------------------------------------------------------------`
`251`		`-sendScopesResponse :: ScopesResponse -> AdaptorClient app ()`
	`251`	`+sendScopesResponse :: ScopesResponse -> Adaptor app ()`
`252`	`252`	`sendScopesResponse = sendSuccesfulResponse . setBody`
`253`	`253`	`----------------------------------------------------------------------------`
`254`		`-sendSetExpressionResponse :: SetExpressionResponse -> AdaptorClient app ()`
	`254`	`+sendSetExpressionResponse :: SetExpressionResponse -> Adaptor app ()`
`255`	`255`	`sendSetExpressionResponse = sendSuccesfulResponse . setBody`
`256`	`256`	`----------------------------------------------------------------------------`
`257`		`-sendSetVariableResponse :: SetVariableResponse -> AdaptorClient app ()`
	`257`	`+sendSetVariableResponse :: SetVariableResponse -> Adaptor app ()`
`258`	`258`	`sendSetVariableResponse = sendSuccesfulResponse . setBody`
`259`	`259`	`----------------------------------------------------------------------------`
`260`		`-sendStepInTargetsResponse :: StepInTargetsResponse -> AdaptorClient app ()`
	`260`	`+sendStepInTargetsResponse :: StepInTargetsResponse -> Adaptor app ()`
`261`	`261`	`sendStepInTargetsResponse = sendSuccesfulResponse . setBody`
`262`	`262`	`----------------------------------------------------------------------------`
`263`		`-sendVariablesResponse :: VariablesResponse -> AdaptorClient app ()`
	`263`	`+sendVariablesResponse :: VariablesResponse -> Adaptor app ()`
`264`	`264`	`sendVariablesResponse = sendSuccesfulResponse . setBody`
`265`	`265`	`----------------------------------------------------------------------------`
`266`		`-sendRunInTerminalResponse :: RunInTerminalResponse -> AdaptorClient app ()`
	`266`	`+sendRunInTerminalResponse :: RunInTerminalResponse -> Adaptor app ()`
`267`	`267`	`sendRunInTerminalResponse = sendSuccesfulResponse . setBody`
`268`	`268`	`----------------------------------------------------------------------------`
`269`		`-sendStartDebuggingResponse :: AdaptorClient app ()`
	`269`	`+sendStartDebuggingResponse :: Adaptor app ()`
`270`	`270`	`sendStartDebuggingResponse = sendSuccesfulEmptyResponse`
`271`	`271`	`----------------------------------------------------------------------------`

0 commit comments

Comments

(0)

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commit 8f527b2

File tree

8 files changed

8 files changed

`‎dap/dap.cabal`

`‎dap/exe/Main.hs`

`‎dap/src/DAP/Adaptor.hs`

`‎dap/src/DAP/Event.hs`

`‎dap/src/DAP/Response.hs`

0 commit comments