Skip to content
Browse files

(inferior-haskell-error-regexp-alist): Be more careful

Ignore-this: 6f476a2584b36d2f50da7950d3f7ab77
(inferior-haskell-error-regexp-alist): Be more careful
with multiline patterns.  Add pattern for GHCi's type error messages.

darcs-hash:20070612231611-c2f2e-d8daf1923068f86d6e457e581d5511269bc571e4.gz
  • Loading branch information...
1 parent 3f8bcaf commit a9fe15bb36d3f84e27d0bc8e95b1590add41eb34 monnier committed Jun 12, 2007
Showing with 17 additions and 5 deletions.
  1. +7 −0 ChangeLog
  2. +10 −5 inf-haskell.el
View
7 ChangeLog
@@ -1,3 +1,10 @@
+2007-06-12 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * haskell-font-lock.el (haskell-font-lock-symbols-alist): Add `forall'.
+
+ * inf-haskell.el (inferior-haskell-error-regexp-alist): Be more careful
+ with multiline patterns. Add pattern for GHCi's type error messages.
+
2007-06-10 Stefan Monnier <monnier@iro.umontreal.ca>
* haskell-font-lock.el (haskell-font-lock-dot-is-not-composition):
View
15 inf-haskell.el
@@ -57,18 +57,23 @@ The command can include arguments."
;; The format of error messages used by Hugs.
`(("^ERROR \"\\(.+?\\)\"\\(:\\| line \\)\\([0-9]+\\) - " 1 3)
;; Format of error messages used by GHCi.
- ("^\\(.+?\\):\\([0-9]+\\):\\(\\([0-9]+\\):\\)?\\( \\|\n +\\)\\(Warning\\)?"
- 1 2 4 ,@(if (fboundp 'compilation-fake-loc) '((6))))
+ ("^\\(.+?\\):\\([0-9]+\\):\\(\\([0-9]+\\):\\)?\\( \\|\n *\\)\\(Warning\\)?"
+ 1 2 4 ,@(if (fboundp 'compilation-fake-loc)
+ '((6) nil (5 '(face nil font-lock-multiline t)))))
;; Runtime exceptions, from ghci.
("^\\*\\*\\* Exception: \\(.+?\\):(\\([0-9]+\\),\\([0-9]+\\))-(\\([0-9]+\\),\\([0-9]+\\)): .*"
1 ,@(if (fboundp 'compilation-fake-loc) '((2 . 4) (3 . 5)) '(2 3)))
- ;; GHCI uses two different forms for line/col ranges, depending on
+ ;; GHCi uses two different forms for line/col ranges, depending on
;; whether it's all on the same line or not :-(
("^\\*\\*\\* Exception: \\(.+?\\):\\([0-9]+\\):\\([0-9]+\\)-\\([0-9]+\\): .*"
1 2 ,(if (fboundp 'compilation-fake-loc) '(3 . 4) 3))
- ;; Info xrefs.
+ ;; Info messages. Not errors per se.
,@(if (fboundp 'compilation-fake-loc)
- `((,inferior-haskell-info-xref-re
+ `(;; Another GHCi pattern used in type errors.
+ ("^[ \t]+at \\(.+\\):\\([0-9]+\\):\\([0-9]+\\)-\\([0-9]+\\)$"
+ 1 2 (3 . 4) 0)
+ ;; Info xrefs.
+ (,inferior-haskell-info-xref-re
1 2 3 0))))
"Regexps for error messages generated by inferior Haskell processes.
The format should be the same as for `compilation-error-regexp-alist'.")

0 comments on commit a9fe15b

Please sign in to comment.
Something went wrong with that request. Please try again.