From 88857b34ede28158406ba3de23a900303754861d Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Sun, 20 Oct 2019 20:12:37 -0400
Subject: [PATCH] lang/haskell: prevent 'kill the whole session' prompts

When closing the haskell-interactive-mode popup.
---
 modules/lang/haskell/config.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/modules/lang/haskell/config.el b/modules/lang/haskell/config.el
index 4ed768074..f6a43d6ac 100644
--- a/modules/lang/haskell/config.el
+++ b/modules/lang/haskell/config.el
@@ -25,6 +25,14 @@
                        haskell-cabal-mode
                        literate-haskell-mode)
                      #'+haskell/open-repl)
+  ;; Prevent the 'Kill the whole session (y or n)?' prompt caused by the popup
+  ;; manager auto-killing haskell-interactive-mode's popup buffer (and process)
+  ;; by settings :ttl to nil.
+  (set-popup-rule!
+    (lambda (bname _action)
+      (eq (buffer-local-value 'major-mode (get-buffer bname))
+          'haskell-interactive-mode))
+    :select t :ttl nil :quit nil)
 
   (add-hook! 'haskell-mode-hook
              #'haskell-collapse-mode ; support folding haskell code blocks