branch: elpa/haskell-tng-mode
commit ad570a07270039e8fdc2ef920d35eed950e7d47b
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@gmail.com>
out of date comments
---
haskell-tng-font-lock.el | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/haskell-tng-font-lock.el b/haskell-tng-font-lock.el
index db62463..9115fe9 100644
--- a/haskell-tng-font-lock.el
+++ b/haskell-tng-font-lock.el
@@ -163,10 +163,6 @@
(haskell-tng:font:multiline:anchor-rewind 1)
(haskell-tng:font:multiline:anchor-rewind)
(0 'haskell-tng:constructor))
- ;; TODO the parens around constructors shouldn't be coloured. Is there a
- ;; way to return an arbitrary number of groups and colour all of them?
- ;; Otherwise this may need a standalone matcher outside the anchor, or a
- ;; cleanup job.
(,(rx-to-string `(: word-start ,conid word-end))
(haskell-tng:font:multiline:anchor-rewind 1)
(haskell-tng:font:multiline:anchor-rewind)
@@ -332,7 +328,8 @@ succeeds and may further restrict the FIND search limit."
(haskell-tng:font:multiline module
(rx line-start "module" word-end)
- (rx line-start "module" word-end (group (+ anything)))
+ (rx line-start "module" word-end (group (+ anything))
+ word-start "where" word-end)
haskell-tng:indent-close)
(provide 'haskell-tng-font-lock)
