From cec1360edd939cc8aeab7a4ffa53eaa427d055c1 Mon Sep 17 00:00:00 2001 From: Rodrigo Mesquita Date: Wed, 9 Sep 2026 14:58:16 +0100 Subject: [PATCH] Add FromJSON to Step{In/Out/Back}Arguments Missing instances, needed for ... <- getArguments --- src/DAP/Types.hs | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/src/DAP/Types.hs b/src/DAP/Types.hs index b21f9b8..fdceabe 100644 --- a/src/DAP/Types.hs +++ b/src/DAP/Types.hs @@ -3376,7 +3376,10 @@ data StepInArguments -- Stepping granularity. If no granularity is specified, a granularity of -- `statement` is assumed. -- - } deriving stock (Show, Eq) + } deriving stock (Show, Eq, Generic) +---------------------------------------------------------------------------- +instance FromJSON StepInArguments where + parseJSON = genericParseJSONWithModifier ---------------------------------------------------------------------------- data StepOutArguments = StepOutArguments @@ -3394,7 +3397,10 @@ data StepOutArguments -- Stepping granularity. If no granularity is specified, a granularity of -- `statement` is assumed. -- - } deriving stock (Show, Eq) + } deriving stock (Show, Eq, Generic) +---------------------------------------------------------------------------- +instance FromJSON StepOutArguments where + parseJSON = genericParseJSONWithModifier ---------------------------------------------------------------------------- data StepBackArguments = StepBackArguments @@ -3411,7 +3417,10 @@ data StepBackArguments -- ^ -- Stepping granularity to step. If no granularity is specified, a granularity -- of `statement` is assumed. - } deriving stock (Show, Eq) + } deriving stock (Show, Eq, Generic) +---------------------------------------------------------------------------- +instance FromJSON StepBackArguments where + parseJSON = genericParseJSONWithModifier ---------------------------------------------------------------------------- data SteppingGranularity = SteppingGranularityStatement