From a49a9fee3aa814d067e6dd985e6e1b7fba1187b0 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Tue, 2 Apr 2019 18:21:34 -0400
Subject: [PATCH] lang/haskell: fix +haskell/open-repl

REPL handlers must return a buffer but display-buffer returns a window.
---
 modules/lang/haskell/autoload.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/modules/lang/haskell/autoload.el b/modules/lang/haskell/autoload.el
index d3c36a20b..cfcd12be0 100644
--- a/modules/lang/haskell/autoload.el
+++ b/modules/lang/haskell/autoload.el
@@ -4,7 +4,11 @@
 (defun +haskell/open-repl (&optional arg)
   "Opens a Haskell REPL."
   (interactive "P")
-  (display-buffer
-   (if (featurep! +intero)
-       (intero-repl-buffer arg)
-     (haskell-session-interactive-buffer (haskell-session)))))
+  (if-let*
+      ((window
+        (display-buffer
+         (if (featurep! +intero)
+             (intero-repl-buffer arg)
+           (haskell-session-interactive-buffer (haskell-session))))))
+      (window-buffer window)
+    (error "Failed to display Haskell REPL")))