From cc9c81a2a598ef13121d750257a895e0443033d7 Mon Sep 17 00:00:00 2001
From: Jeff Parsons <parsoj@gmail.com>
Date: Tue, 25 Jan 2022 18:40:38 -0800
Subject: [PATCH] fix name of debug port argument

---
 dap-codelldb.el | 2 +-
 dap-mode.el     | 2 +-
 dap-python.el   | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/dap-codelldb.el b/dap-codelldb.el
index 1f2e43fa..5bb1d3ea 100644
--- a/dap-codelldb.el
+++ b/dap-codelldb.el
@@ -58,7 +58,7 @@ With prefix, FORCED to redownload the extension."
  (lambda (conf)
    (let ((debug-port (dap--find-available-port)))
      (plist-put conf :program-to-start (format "%s --port %s" dap-codelldb-debug-program debug-port))
-     (plist-put conf :debugServer debug-port))
+     (plist-put conf :debugPort debug-port))
    (plist-put conf :host "localhost")
    (plist-put conf :type "lldb")
    (plist-put conf :cargo "")
diff --git a/dap-mode.el b/dap-mode.el
index 05efbfdc..ad09c869 100644
--- a/dap-mode.el
+++ b/dap-mode.el
@@ -1182,7 +1182,7 @@ ADAPTER-ID the id of the adapter."
 
 (defun dap--create-session (launch-args)
   "Create debug session from LAUNCH-ARGS."
-  (-let* (((&plist :host :dap-server-path :name session-name :debugServer port) launch-args)
+  (-let* (((&plist :host :dap-server-path :name session-name :debugPort port) launch-args)
           (proc (if dap-server-path
                     (make-process
                      :name session-name
diff --git a/dap-python.el b/dap-python.el
index f1a90b60..a55bab04 100644
--- a/dap-python.el
+++ b/dap-python.el
@@ -204,7 +204,7 @@ strings, for the sake of launch.json feature parity."
                             (if module (concat " -m " (shell-quote-argument module)) "")
                             (if program (shell-quote-argument program) "")
                             (if (not (string-empty-p python-args)) (concat " " python-args) "")))
-         (plist-put conf :debugServer debug-port)
+         (plist-put conf :debugPort debug-port)
          (plist-put conf :port debug-port)
          (plist-put conf :hostName host)
          (plist-put conf :host host)))
@@ -244,7 +244,7 @@ strings, for the sake of launch.json feature parity."
                  (host (or (plist-get connect :host) "localhost"))
                  (port (or (plist-get connect :port) 5678)))
             (plist-put conf :host host)
-            (plist-put conf :debugServer port)
+            (plist-put conf :debugPort port)
             (cl-remf conf :connect)))))
 
       (_ (error "`dap-python': unknown :debugger type %S" debugger)))