Commit b8a1ae2

committed

use field names for better readability

1 parent 03eda0f commit b8a1ae2Copy full SHA for b8a1ae2

File tree

1 file changed

+80

-12

lines changed

dap/src/DAP
- Event.hs

1 file changed

+80

-12

lines changed

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

Lines changed: 80 additions & 12 deletions

Original file line number	Diff line number	Diff line change
`@@ -61,13 +61,20 @@ sendContinuedEvent :: ContinuedEvent -> Adaptor app ()`
`61`	`61`	`sendContinuedEvent = sendSuccesfulEvent EventTypeContinued . setBody`
`62`	`62`	`----------------------------------------------------------------------------`
`63`	`63`	`defaultContinuedEvent :: ContinuedEvent`
`64`		`-defaultContinuedEvent = ContinuedEvent 0 False`
	`64`	`+defaultContinuedEvent`
	`65`	`+ = ContinuedEvent`
	`66`	`+ { continuedEventThreadId = 0`
	`67`	`+ , continuedEventAllThreadsContinued = False`
	`68`	`+ }`
`65`	`69`	`----------------------------------------------------------------------------`
`66`	`70`	`sendExitedEvent :: ExitedEvent -> Adaptor app ()`
`67`	`71`	`sendExitedEvent = sendSuccesfulEvent EventTypeExited . setBody`
`68`	`72`	`----------------------------------------------------------------------------`
`69`	`73`	`defaultExitedEvent :: ExitedEvent`
`70`		`-defaultExitedEvent = ExitedEvent 0`
	`74`	`+defaultExitedEvent`
	`75`	`+ = ExitedEvent`
	`76`	`+ { exitedEventExitCode = 0`
	`77`	`+ }`
`71`	`78`	`----------------------------------------------------------------------------`
`72`	`79`	`sendInitializedEvent :: Adaptor app ()`
`73`	`80`	`sendInitializedEvent = sendSuccesfulEvent EventTypeInitialized (pure ())`
`@@ -76,7 +83,13 @@ sendInvalidatedEvent :: InvalidatedEvent -> Adaptor app ()`
`76`	`83`	`sendInvalidatedEvent = sendSuccesfulEvent EventTypeInvalidated . setBody`
`77`	`84`	`----------------------------------------------------------------------------`
`78`	`85`	`defaultInvalidatedEvent :: InvalidatedEvent`
`79`		`-defaultInvalidatedEvent = InvalidatedEvent [] Nothing Nothing`
	`86`	`+defaultInvalidatedEvent`
	`87`	`+ = InvalidatedEvent`
	`88`	`+ { invalidatedEventAreas = []`
	`89`	`+ , invalidatedEventThreadId = Nothing`
	`90`	`+ , invalidatedEventStackFrameId = Nothing`
	`91`	`+ }`
	`92`	`+`
`80`	`93`	`----------------------------------------------------------------------------`
`81`	`94`	`sendLoadedSourceEvent :: LoadedSourceEvent -> Adaptor app ()`
`82`	`95`	`sendLoadedSourceEvent = sendSuccesfulEvent EventTypeLoadedSource . setBody`
`@@ -85,7 +98,12 @@ sendMemoryEvent :: MemoryEvent -> Adaptor app ()`
`85`	`98`	`sendMemoryEvent = sendSuccesfulEvent EventTypeMemory . setBody`
`86`	`99`	`----------------------------------------------------------------------------`
`87`	`100`	`defaultMemoryEvent :: MemoryEvent`
`88`		`-defaultMemoryEvent = MemoryEvent mempty 0 0`
	`101`	`+defaultMemoryEvent`
	`102`	`+ = MemoryEvent`
	`103`	`+ { memoryEventMemoryReference = mempty`
	`104`	`+ , memoryEventOffset = 0`
	`105`	`+ , memoryEventCount = 0`
	`106`	`+ }`
`89`	`107`	`----------------------------------------------------------------------------`
`90`	`108`	`sendModuleEvent :: ModuleEvent -> Adaptor app ()`
`91`	`109`	`sendModuleEvent = sendSuccesfulEvent EventTypeModule . setBody`
`@@ -94,48 +112,98 @@ sendOutputEvent :: OutputEvent -> Adaptor app ()`
`94`	`112`	`sendOutputEvent = sendSuccesfulEvent EventTypeOutput . setBody`
`95`	`113`	`----------------------------------------------------------------------------`
`96`	`114`	`defaultOutputEvent :: OutputEvent`
`97`		`-defaultOutputEvent = OutputEvent Nothing mempty Nothing Nothing Nothing Nothing Nothing Nothing`
	`115`	`+defaultOutputEvent`
	`116`	`+ = OutputEvent`
	`117`	`+ { outputEventCategory = Nothing`
	`118`	`+ , outputEventOutput = mempty`
	`119`	`+ , outputEventGroup = Nothing`
	`120`	`+ , outputEventVariablesReference = Nothing`
	`121`	`+ , outputEventSource = Nothing`
	`122`	`+ , outputEventLine = Nothing`
	`123`	`+ , outputEventColumn = Nothing`
	`124`	`+ , outputEventData = Nothing`
	`125`	`+ }`
`98`	`126`	`----------------------------------------------------------------------------`
`99`	`127`	`sendProcessEvent :: ProcessEvent -> Adaptor app ()`
`100`	`128`	`sendProcessEvent = sendSuccesfulEvent EventTypeProcess . setBody`
`101`	`129`	`----------------------------------------------------------------------------`
`102`	`130`	`defaultProcessEvent :: ProcessEvent`
`103`		`-defaultProcessEvent = ProcessEvent mempty Nothing True Nothing Nothing`
	`131`	`+defaultProcessEvent`
	`132`	`+ = ProcessEvent`
	`133`	`+ { processEventName = mempty`
	`134`	`+ , processEventSystemProcessId = Nothing`
	`135`	`+ , processEventIsLocalProcess = True`
	`136`	`+ , processEventStartMethod = Nothing`
	`137`	`+ , processEventPointerSize = Nothing`
	`138`	`+ }`
`104`	`139`	`----------------------------------------------------------------------------`
`105`	`140`	`sendProgressEndEvent :: ProgressEndEvent -> Adaptor app ()`
`106`	`141`	`sendProgressEndEvent = sendSuccesfulEvent EventTypeProgressEnd . setBody`
`107`	`142`	`----------------------------------------------------------------------------`
`108`	`143`	`defaultProgressEndEvent :: ProgressEndEvent`
`109`		`-defaultProgressEndEvent = ProgressEndEvent mempty Nothing`
	`144`	`+defaultProgressEndEvent`
	`145`	`+ = ProgressEndEvent`
	`146`	`+ { progressEndEventProgressId = mempty`
	`147`	`+ , progressEndEventMessage = Nothing`
	`148`	`+ }`
`110`	`149`	`----------------------------------------------------------------------------`
`111`	`150`	`sendProgressStartEvent :: ProgressStartEvent -> Adaptor app ()`
`112`	`151`	`sendProgressStartEvent = sendSuccesfulEvent EventTypeProgressStart . setBody`
`113`	`152`	`----------------------------------------------------------------------------`
`114`	`153`	`defaultProgressStartEvent :: ProgressStartEvent`
`115`		`-defaultProgressStartEvent = ProgressStartEvent mempty mempty Nothing False Nothing Nothing`
	`154`	`+defaultProgressStartEvent`
	`155`	`+ = ProgressStartEvent`
	`156`	`+ { progressStartEventProgressId = mempty`
	`157`	`+ , progressStartEventTitle = mempty`
	`158`	`+ , progressStartEventRequestId = Nothing`
	`159`	`+ , progressStartEventCancellable = False`
	`160`	`+ , progressStartEventMessage = Nothing`
	`161`	`+ , progressStartEventPercentage = Nothing`
	`162`	`+ }`
`116`	`163`	`----------------------------------------------------------------------------`
`117`	`164`	`sendProgressUpdateEvent :: ProgressUpdateEvent -> Adaptor app ()`
`118`	`165`	`sendProgressUpdateEvent = sendSuccesfulEvent EventTypeProgressUpdate . setBody`
`119`	`166`	`----------------------------------------------------------------------------`
`120`	`167`	`defaultProgressUpdateEvent :: ProgressUpdateEvent`
`121`		`-defaultProgressUpdateEvent = ProgressUpdateEvent mempty Nothing Nothing`
	`168`	`+defaultProgressUpdateEvent`
	`169`	`+ = ProgressUpdateEvent`
	`170`	`+ { progressUpdateEventProgressId = mempty`
	`171`	`+ , progressUpdateEventMessage = Nothing`
	`172`	`+ , progressUpdateEventPercentage = Nothing`
	`173`	`+ }`
`122`	`174`	`----------------------------------------------------------------------------`
`123`	`175`	`sendStoppedEvent :: StoppedEvent -> Adaptor app ()`
`124`	`176`	`sendStoppedEvent = sendSuccesfulEvent EventTypeStopped . setBody`
`125`	`177`	`----------------------------------------------------------------------------`
`126`	`178`	`defaultStoppedEvent :: StoppedEvent`
`127`		`-defaultStoppedEvent = StoppedEvent StoppedEventReasonStep Nothing (Just 0) False Nothing False []`
	`179`	`+defaultStoppedEvent`
	`180`	`+ = StoppedEvent`
	`181`	`+ { stoppedEventReason = StoppedEventReasonStep`
	`182`	`+ , stoppedEventDescription = Nothing`
	`183`	`+ , stoppedEventThreadId = Just 0`
	`184`	`+ , stoppedEventPreserveFocusHint = False`
	`185`	`+ , stoppedEventText = Nothing`
	`186`	`+ , stoppedEventAllThreadsStopped = False`
	`187`	`+ , stoppedEventHitBreakpointIds = []`
	`188`	`+ }`
`128`	`189`	`----------------------------------------------------------------------------`
`129`	`190`	`sendTerminatedEvent :: TerminatedEvent -> Adaptor app ()`
`130`	`191`	`sendTerminatedEvent = sendSuccesfulEvent EventTypeTerminated . setBody`
`131`	`192`	`----------------------------------------------------------------------------`
`132`	`193`	`defaultTerminatedEvent :: TerminatedEvent`
`133`		`-defaultTerminatedEvent = TerminatedEvent False`
	`194`	`+defaultTerminatedEvent`
	`195`	`+ = TerminatedEvent`
	`196`	`+ { terminatedEventRestart = False`
	`197`	`+ }`
`134`	`198`	`----------------------------------------------------------------------------`
`135`	`199`	`sendThreadEvent :: ThreadEvent -> Adaptor app ()`
`136`	`200`	`sendThreadEvent = sendSuccesfulEvent EventTypeThread . setBody`
`137`	`201`	`----------------------------------------------------------------------------`
`138`	`202`	`defaultThreadEvent :: ThreadEvent`
`139`		`-defaultThreadEvent = ThreadEvent ThreadEventReasonStarted 0`
	`203`	`+defaultThreadEvent`
	`204`	`+ = ThreadEvent`
	`205`	`+ { threadEventReason = ThreadEventReasonStarted`
	`206`	`+ , threadEventThreadId = 0`
	`207`	`+ }`
`140`	`208`	`----------------------------------------------------------------------------`
`141`	`209`

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 b8a1ae2

File tree

1 file changed

1 file changed

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

0 commit comments