From f981b9886e55ee04b58de3a19a4955ec72def9b5 Mon Sep 17 00:00:00 2001
From: Patrick Elliott <patrick.d.elliott@gmail.com>
Date: Tue, 17 Jul 2018 23:43:08 +0200
Subject: [PATCH] Add haskell keybindings

---
 modules/lang/haskell/config.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/modules/lang/haskell/config.el b/modules/lang/haskell/config.el
index 3facd2086..581c03f84 100644
--- a/modules/lang/haskell/config.el
+++ b/modules/lang/haskell/config.el
@@ -17,6 +17,26 @@
   (set-repl-handler! '(haskell-mode haskell-cabal-mode literate-haskell-mode) #'+haskell-repl-buffer)
   (add-to-list 'completion-ignored-extensions ".hi")
 
+  (map! :map haskell-mode-map
+        :localleader
+        :n "p" #'hindent-reformat-buffer
+        :v "p" #'hindent-reformat-region
+        (:when (featurep! +intero)
+          :desc "type" :n "t" #'intero-type-at
+          :desc "info" :n "i" #'intero-info
+          :desc "load" :n "l" #'intero-repl-load
+          :desc "eval line" :n "e" #'intero-repl-eval-region
+          :desc "eval region" :v "e" #'intero-repl-eval-region
+          :desc "apply suggestions" :n "a" #'intero-apply-suggestions)
+        (:when (featurep! +dante)
+          :n "n" "b" #'haskell-process-cabal-build
+          :desc "goto cabal file" :n "c" #'haskell-cabal-visit-file
+          :desc "type" :n "t" #'dante-type-at
+          :desc "info" :n "i" #'dante-info
+          :desc "load" :n "l" #'haskell-process-load-or-reload
+          :desc "eval command block >>>" :n "e" #'dante-eval-block
+          :desc "repair at point" :n "a" #'attrap-attrap)
+
   (when (featurep! :feature syntax-checker)
     (after! flycheck
       (dolist (checker (delq nil (list (if (featurep! +intero) 'intero)