use field names for better readability

Author: csabahruska

dap/src/DAP/Event.hs

@@ -61,13 +61,20 @@ sendContinuedEvent :: ContinuedEvent -> Adaptor app ()
 sendContinuedEvent = sendSuccesfulEvent EventTypeContinued . setBody
 ----------------------------------------------------------------------------
 defaultContinuedEvent :: ContinuedEvent
-defaultContinuedEvent = ContinuedEvent 0 False
+defaultContinuedEvent
+  = ContinuedEvent
+  { continuedEventThreadId            = 0
+  , continuedEventAllThreadsContinued = False
+  }
 ----------------------------------------------------------------------------
 sendExitedEvent :: ExitedEvent -> Adaptor app ()
 sendExitedEvent = sendSuccesfulEvent EventTypeExited . setBody
 ----------------------------------------------------------------------------
 defaultExitedEvent :: ExitedEvent
-defaultExitedEvent = ExitedEvent 0
+defaultExitedEvent
+  = ExitedEvent
+  { exitedEventExitCode = 0
+  }
 ----------------------------------------------------------------------------
 sendInitializedEvent :: Adaptor app ()
 sendInitializedEvent = sendSuccesfulEvent EventTypeInitialized (pure ())
@@ -76,7 +83,13 @@ sendInvalidatedEvent :: InvalidatedEvent -> Adaptor app ()
 sendInvalidatedEvent = sendSuccesfulEvent EventTypeInvalidated . setBody
 ----------------------------------------------------------------------------
 defaultInvalidatedEvent :: InvalidatedEvent
-defaultInvalidatedEvent = InvalidatedEvent [] Nothing Nothing
+defaultInvalidatedEvent
+  = InvalidatedEvent
+  { invalidatedEventAreas         = []
+  , invalidatedEventThreadId      = Nothing
+  , invalidatedEventStackFrameId  = Nothing
+  }
+
 ----------------------------------------------------------------------------
 sendLoadedSourceEvent :: LoadedSourceEvent -> Adaptor app ()
 sendLoadedSourceEvent = sendSuccesfulEvent EventTypeLoadedSource . setBody
@@ -85,7 +98,12 @@ sendMemoryEvent :: MemoryEvent -> Adaptor app ()
 sendMemoryEvent = sendSuccesfulEvent EventTypeMemory . setBody
 ----------------------------------------------------------------------------
 defaultMemoryEvent :: MemoryEvent
-defaultMemoryEvent = MemoryEvent mempty 0 0
+defaultMemoryEvent
+  = MemoryEvent
+  { memoryEventMemoryReference  = mempty
+  , memoryEventOffset           = 0
+  , memoryEventCount            = 0
+  }
 ----------------------------------------------------------------------------
 sendModuleEvent :: ModuleEvent -> Adaptor app ()
 sendModuleEvent = sendSuccesfulEvent EventTypeModule . setBody
@@ -94,48 +112,98 @@ sendOutputEvent :: OutputEvent -> Adaptor app ()
 sendOutputEvent = sendSuccesfulEvent EventTypeOutput . setBody
 ----------------------------------------------------------------------------
 defaultOutputEvent :: OutputEvent
-defaultOutputEvent = OutputEvent Nothing mempty Nothing Nothing Nothing Nothing Nothing Nothing
+defaultOutputEvent
+  = OutputEvent
+  { outputEventCategory           = Nothing
+  , outputEventOutput             = mempty
+  , outputEventGroup              = Nothing
+  , outputEventVariablesReference = Nothing
+  , outputEventSource             = Nothing
+  , outputEventLine               = Nothing
+  , outputEventColumn             = Nothing
+  , outputEventData               = Nothing
+  }
 ----------------------------------------------------------------------------
 sendProcessEvent :: ProcessEvent -> Adaptor app ()
 sendProcessEvent = sendSuccesfulEvent EventTypeProcess . setBody
 ----------------------------------------------------------------------------
 defaultProcessEvent :: ProcessEvent
-defaultProcessEvent = ProcessEvent mempty Nothing True Nothing Nothing
+defaultProcessEvent
+  = ProcessEvent
+  { processEventName            = mempty
+  , processEventSystemProcessId = Nothing
+  , processEventIsLocalProcess  = True
+  , processEventStartMethod     = Nothing
+  , processEventPointerSize     = Nothing
+  }
 ----------------------------------------------------------------------------
 sendProgressEndEvent :: ProgressEndEvent -> Adaptor app ()
 sendProgressEndEvent = sendSuccesfulEvent EventTypeProgressEnd . setBody
 ----------------------------------------------------------------------------
 defaultProgressEndEvent :: ProgressEndEvent
-defaultProgressEndEvent = ProgressEndEvent mempty Nothing
+defaultProgressEndEvent
+  = ProgressEndEvent
+  { progressEndEventProgressId  = mempty
+  , progressEndEventMessage     = Nothing
+  }
 ----------------------------------------------------------------------------
 sendProgressStartEvent :: ProgressStartEvent -> Adaptor app ()
 sendProgressStartEvent = sendSuccesfulEvent EventTypeProgressStart . setBody
 ----------------------------------------------------------------------------
 defaultProgressStartEvent :: ProgressStartEvent
-defaultProgressStartEvent = ProgressStartEvent mempty mempty Nothing False Nothing Nothing
+defaultProgressStartEvent
+  = ProgressStartEvent
+  { progressStartEventProgressId  = mempty
+  , progressStartEventTitle       = mempty
+  , progressStartEventRequestId   = Nothing
+  , progressStartEventCancellable = False
+  , progressStartEventMessage     = Nothing
+  , progressStartEventPercentage  = Nothing
+  }
 ----------------------------------------------------------------------------
 sendProgressUpdateEvent :: ProgressUpdateEvent -> Adaptor app ()
 sendProgressUpdateEvent = sendSuccesfulEvent EventTypeProgressUpdate . setBody
 ----------------------------------------------------------------------------
 defaultProgressUpdateEvent :: ProgressUpdateEvent
-defaultProgressUpdateEvent = ProgressUpdateEvent mempty Nothing Nothing
+defaultProgressUpdateEvent
+  = ProgressUpdateEvent
+  { progressUpdateEventProgressId = mempty
+  , progressUpdateEventMessage    = Nothing
+  , progressUpdateEventPercentage = Nothing
+  }
 ----------------------------------------------------------------------------
 sendStoppedEvent :: StoppedEvent -> Adaptor app ()
 sendStoppedEvent = sendSuccesfulEvent EventTypeStopped . setBody
 ----------------------------------------------------------------------------
 defaultStoppedEvent :: StoppedEvent
-defaultStoppedEvent = StoppedEvent StoppedEventReasonStep Nothing (Just 0) False Nothing False []
+defaultStoppedEvent
+  = StoppedEvent
+  { stoppedEventReason            = StoppedEventReasonStep
+  , stoppedEventDescription       = Nothing
+  , stoppedEventThreadId          = Just 0
+  , stoppedEventPreserveFocusHint = False
+  , stoppedEventText              = Nothing
+  , stoppedEventAllThreadsStopped = False
+  , stoppedEventHitBreakpointIds  = []
+  }
 ----------------------------------------------------------------------------
 sendTerminatedEvent :: TerminatedEvent -> Adaptor app ()
 sendTerminatedEvent = sendSuccesfulEvent EventTypeTerminated . setBody
 ----------------------------------------------------------------------------
 defaultTerminatedEvent :: TerminatedEvent
-defaultTerminatedEvent = TerminatedEvent False
+defaultTerminatedEvent
+  = TerminatedEvent
+  { terminatedEventRestart = False
+  }
 ----------------------------------------------------------------------------
 sendThreadEvent :: ThreadEvent -> Adaptor app ()
 sendThreadEvent = sendSuccesfulEvent EventTypeThread . setBody
 ----------------------------------------------------------------------------
 defaultThreadEvent :: ThreadEvent
-defaultThreadEvent = ThreadEvent ThreadEventReasonStarted 0
+defaultThreadEvent
+  = ThreadEvent
+  { threadEventReason   = ThreadEventReasonStarted
+  , threadEventThreadId = 0
+  }
 ----------------------------------------------------------------------------