SetBreakpointsRequestJSON.hs

{-# LANGUAGE TemplateHaskell     #-}


module Phoityne.IO.GUI.VSCode.TH.SetBreakpointsRequestJSON where

import Data.Aeson.TH

import Phoityne.Utility
import Phoityne.IO.GUI.VSCode.TH.SetBreakpointsRequestArgumentsJSON

-- |
--   SetBreakpoints request; value of command field is "setBreakpoints".
--   Sets multiple breakpoints for a single source and clears all previous breakpoints in that source.
--   To clear all breakpoint for a source, specify an empty array.
--   When a breakpoint is hit, a StoppedEvent (event type 'breakpoint') is generated.
--
data SetBreakpointsRequest =
  SetBreakpointsRequest {
    seqSetBreakpointsRequest       :: Int                             -- Sequence number
  , typeSetBreakpointsRequest      :: String                          -- One of "request", "response", or "event"
  , commandSetBreakpointsRequest   :: String                          -- The command to execute
  , argumentsSetBreakpointsRequest :: SetBreakpointsRequestArguments  -- Arguments for "setBreakpoints" request.
  } deriving (Show, Read, Eq)

$(deriveJSON defaultOptions { fieldLabelModifier = rdrop (length "SetBreakpointsRequest") } ''SetBreakpointsRequest)