From f0d78d74954dee678b6fce1575522121d5f1563a Mon Sep 17 00:00:00 2001
From: Rodrigo Mesquita <rodrigo.m.mesquita@gmail.com>
Date: Tue, 12 May 2026 14:33:21 +0100
Subject: [PATCH] fix: Reverse request without payload trash

`setField "type"` was just appending the "type" to the current payload.
We should use `setType` instead, which "starts from scratch" the
payload. It is also what we use for e.g. `sendSuccesfulResponse`,
`sendSuccesfulEvent`, `sendErrorResponse`, etc...

Fixes #34
---
 src/DAP/Adaptor.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/DAP/Adaptor.hs b/src/DAP/Adaptor.hs
index 15b3bae..a8f6f69 100644
--- a/src/DAP/Adaptor.hs
+++ b/src/DAP/Adaptor.hs
@@ -306,7 +306,7 @@ sendReverseRequest
   :: ReverseCommand
   -> Adaptor app Request ()
 sendReverseRequest rcmd = send $ do
-  setField "type" MessageTypeRequest
+  setType MessageTypeRequest
   setField "command" rcmd
 ----------------------------------------------------------------------------
 -- | Send runInTerminal reverse request