diff --git a/haskell-compile.el b/haskell-compile.el
index 2f4224032..c55614cad 100644
--- a/haskell-compile.el
+++ b/haskell-compile.el
@@ -77,6 +77,10 @@ The `%s' placeholder is replaced by the current buffer's filename."
     ("^    \\(?:Declared at:\\|            \\) \\(?1:[^ \t\r\n]+\\):\\(?2:[0-9]+\\):\\(?4:[0-9]+\\)$"
      1 2 4 0) ;; info locus
 
+    ;; failed tasty tests
+    (".*error, called at \\(.*\\.hs\\):\\([0-9]+\\):\\([0-9]+\\) in .*" 1 2 3 2 1)
+    (" +\\(.*\\.hs\\):\\([0-9]+\\):$" 1 2 nil 2 1)
+
     ;; this is the weakest pattern as it's subject to line wrapping et al.
     (" at \\(?1:[^ \t\r\n]+\\):\\(?2:[0-9]+\\):\\(?4:[0-9]+\\)\\(?:-\\(?5:[0-9]+\\)\\)?[)]?$"
      1 2 (4 . 5) 0)) ;; info locus