ScopesBodyJSON.hs

{-# LANGUAGE TemplateHaskell     #-}


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

import Data.Aeson.TH

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

-- |
--   Response to "scopes" request.
--
data ScopesBody =
  ScopesBody {
    scopesScopesBody :: [Scope]  -- The scopes of the stackframe. If the array has length zero, there are no scopes available.
  } deriving (Show, Read, Eq)


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

defaultScopesBody :: ScopesBody
defaultScopesBody = ScopesBody [Scope "GHCi scope" 1 False]