hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

pretty print.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-06-14 15:39:26 +09:00
parent 48b54d2fcd
commit b548f1dbcf
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
elisp/ghc-flymake.el
View File

@ -72,13 +72,12 @@
(insert title "\n\n") (insert title "\n\n")
(mapc (lambda (x) (insert (ghc-replace-character x ghc-null ghc-newline) "\n")) errs) (mapc (lambda (x) (insert (ghc-replace-character x ghc-null ghc-newline) "\n")) errs)
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "In the [^:\n]+: \\|Expected type: \\|Inferred type: " nil t) (while (re-search-forward "In the [^:\n]+: \\|Expected type: \\|Inferred type: \\|Possible fix: " nil t)
(replace-match (concat "\n" (match-string 0) "\n "))) (replace-match (concat "\n" (match-string 0) "\n ")))
(goto-char (point-max)) (goto-char (point-max))
(while (re-search-backward "In the [a-z]+ argument" nil t) (while (re-search-backward "In the [a-z]+ argument" nil t)
(insert "\n")))) (insert "\n"))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ghc-flymake-insert-from-warning () (defun ghc-flymake-insert-from-warning ()