phoityne-vscode-0.0.8.0: app/Phoityne/VSCode/TH/FunctionBreakpointJSON.hs

{-# LANGUAGE TemplateHaskell     #-}

module Phoityne.VSCode.TH.FunctionBreakpointJSON where

import Data.Aeson.TH

import Phoityne.VSCode.Utility

-- |
--   Properties of a breakpoint passed to the setFunctionBreakpoints request.
--
data FunctionBreakpoint =
  FunctionBreakpoint {
    nameFunctionBreakpoint      :: String           -- The name of the function. 
  , conditionFunctionBreakpoint :: Maybe String  -- An optional expression for conditional breakpoints.
  } deriving (Show, Read, Eq)

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