From c22d3d174f260e3b913a4faadcaa2377c81815da Mon Sep 17 00:00:00 2001
From: Lucius Hu <1222865+lebensterben@users.noreply.github.com>
Date: Wed, 4 Jan 2023 14:05:46 -0500
Subject: [PATCH] fix(haskell): missing haskell-debug-mode-map (#15868)

fixes https://github.com/syl20bnr/spacemacs/issues/15866
---
 layers/+lang/haskell/packages.el | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/layers/+lang/haskell/packages.el b/layers/+lang/haskell/packages.el
index 53a2a06cb..70ae4192e 100644
--- a/layers/+lang/haskell/packages.el
+++ b/layers/+lang/haskell/packages.el
@@ -229,20 +229,6 @@
             "hh"  'hoogle
             "hG"  'haskell-hoogle-lookup-from-local)))
 
-      (evilified-state-evilify-map haskell-debug-mode-map
-        :mode haskell-debug-mode
-        :bindings
-        "RET" 'haskell-debug/select
-        "a" 'haskell-debug/abandon
-        "b" 'haskell-debug/break-on-function
-        "c" 'haskell-debug/continue
-        "d" 'haskell-debug/delete
-        "i" 'haskell-debug/step
-        "s" 'haskell-debug/next
-        "S" 'haskell-debug/previous
-        "r" 'haskell-debug/refresh
-        "t" 'haskell-debug/trace)
-
       ;; configure C-c C-l so it doesn't throw any errors
       (bind-key "C-c C-l" 'haskell-process-load-file haskell-mode-map)
       (bind-key "C-c C-z" 'haskell-interactive-switch haskell-mode-map)
@@ -296,7 +282,23 @@
       (add-to-list 'align-rules-list
                    '(haskell-left-arrows
                      (regexp . "\\(\\s-+\\)\\(<-\\|←\\)\\s-+")
-                     (modes . haskell-modes))))))
+                     (modes . haskell-modes)))))
+
+  (use-package haskell-debug
+    :config
+    (evilified-state-evilify-map haskell-debug-mode-map
+      :mode haskell-debug-mode
+      :bindings
+      "RET" 'haskell-debug/select
+      "a" 'haskell-debug/abandon
+      "b" 'haskell-debug/break-on-function
+      "c" 'haskell-debug/continue
+      "d" 'haskell-debug/delete
+      "i" 'haskell-debug/step
+      "s" 'haskell-debug/next
+      "S" 'haskell-debug/previous
+      "r" 'haskell-debug/refresh
+      "t" 'haskell-debug/trace)))
 
 (defun haskell/init-haskell-snippets ()
   ;; manually load the package since the current implementation is not lazy