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