From 2bdfa6e9cfe7e6cec51c8f7fcf65eab576a254f5 Mon Sep 17 00:00:00 2001
From: Mark Laws <mdl@60hz.org>
Date: Thu, 3 Sep 2015 23:44:22 +0900
Subject: [PATCH] Fix `haskell-interactive-types-for-show-ambiguous'

---
 haskell-interactive-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/haskell-interactive-mode.el b/haskell-interactive-mode.el
index 5f292213d..bda412127 100644
--- a/haskell-interactive-mode.el
+++ b/haskell-interactive-mode.el
@@ -1016,8 +1016,8 @@ don't care when the thing completes as long as it's soonish."
   "Look for an <interactive> compile error; if there is one, pop
   that up in a buffer, similar to `debug-on-error'."
   (when (and haskell-interactive-types-for-show-ambiguous
-             (string-match "^\n<interactive>:[0-9]+:[0-9]+:" response)
-             (not (string-match "^\n<interactive>:[0-9]+:[0-9]+:[\n ]+Warning:" response)))
+             (string-match "^\n<interactive>:[-0-9]+:[-0-9]+:" response)
+             (not (string-match "^\n<interactive>:[-0-9]+:[-0-9]+:[\n ]+Warning:" response)))
     (let ((inhibit-read-only t))
       (delete-region haskell-interactive-mode-prompt-start (point))
       (set-marker haskell-interactive-mode-prompt-start