SourceArgumentsJSON.hs

{-# LANGUAGE TemplateHaskell     #-}


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

import Data.Aeson.TH

import Phoityne.Utility

-- |
--   Arguments for "source" request.
--
data SourceArguments =
  SourceArguments {
    sourceReferenceSourceArguments :: Int --  The reference to the source. This is the value received in Source.reference.
  } deriving (Show, Read, Eq)


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