branch: elpa/haskell-tng-mode
commit e0acc425bf243b5634554b4aa78b6efef7ee89cc
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@gmail.com>

    better tasty error detection
---
 haskell-tng-compile.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/haskell-tng-compile.el b/haskell-tng-compile.el
index 219573d..6ae8360 100644
--- a/haskell-tng-compile.el
+++ b/haskell-tng-compile.el
@@ -32,13 +32,13 @@
       (,(rx-to-string `(: bol ,file ":(" ,num "," ,num ")-(" ,num "," ,num ")" 
,war))
        1 (2 . 4) (3 . 5) 1 1 (6 'compilation-warning))
 
-      ;; hspec
-      (,(rx-to-string `(: bol (+ space) ,file ":" ,num ":" ,num ":"))
-       1 2 3 2 1)
-      ;; tasty
+      ;; tasty / hspec
       (,(rx-to-string
-         `(: bol (+ space) "error, called at" (+ space) ,file ":" ,num ":" 
,num " in "))
-       1 2 3 2 1)
+         `(: bol (? (+ space) "error, called at") (+ space) ,file ":" ,num ":" 
,num (? "-" ,num ":")))
+       1 2 (3 . 4) 2 1)
+      (,(rx-to-string
+         `(: bol (? (+ space) "error, called at") (+ space) ,file ":(" ,num 
"," ,num ")-(" ,num "," ,num ")"))
+       1 (2 . 4) (3 . 5) 2 1)
 
       ;; ghc information.
       (,(rx-to-string

Reply via email to