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

---
 modules/lang/haskell/+dante.el   | 13 +++++++++++++
 modules/lang/haskell/packages.el |  3 ++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/modules/lang/haskell/+dante.el b/modules/lang/haskell/+dante.el
index 51a9e3be4..510bd7373 100644
--- a/modules/lang/haskell/+dante.el
+++ b/modules/lang/haskell/+dante.el
@@ -2,4 +2,17 @@
 ;;;###if (featurep! +dante)
 
 (def-package! dante
+  :init
+  (setq dante-load-flags '(;; defaults:
+                           "+c"
+                           "-Wwarn=missing-home-modules"
+                           "-fno-diagnostics-show-caret"
+                           ;; neccessary to make attrap-attrap useful:
+                           "-Wall"
+                           ;; necessary to make company completion useful:
+                           "-fdefer-typed-holes"
+                           "-fdefer-type-errors"))
   :hook (haskell-mode . dante-mode))
+
+(def-package! attrap
+  :commands (attrap-attrap))
diff --git a/modules/lang/haskell/packages.el b/modules/lang/haskell/packages.el
index 5c822bd9c..c5a0e418a 100644
--- a/modules/lang/haskell/packages.el
+++ b/modules/lang/haskell/packages.el
@@ -5,6 +5,7 @@
 (package! hindent)
 
 (cond ((featurep! +dante)
-       (package! dante))
+       (package! dante)
+       (package! attrap))
       ((package! intero)))