summaryrefslogtreecommitdiff
path: root/ale_linters
diff options
context:
space:
mode:
Diffstat (limited to 'ale_linters')
-rw-r--r--ale_linters/haskell/ghc.vim4
-rw-r--r--ale_linters/haskell/hlint.vim2
2 files changed, 2 insertions, 4 deletions
diff --git a/ale_linters/haskell/ghc.vim b/ale_linters/haskell/ghc.vim
index 275cf32f..def883e3 100644
--- a/ale_linters/haskell/ghc.vim
+++ b/ale_linters/haskell/ghc.vim
@@ -29,9 +29,7 @@ function! ale_linters#haskell#ghc#Handle(buffer, lines)
call add(l:corrected_lines, l:line)
else
if len(l:corrected_lines) > 0
- if l:corrected_lines[-1] =~# ': error:$'
- let l:line = substitute(l:line, '\v^\s+', ' ', '')
- endif
+ let l:line = substitute(l:line, '\v\s+', ' ', '')
let l:corrected_lines[-1] .= l:line
endif
endif
diff --git a/ale_linters/haskell/hlint.vim b/ale_linters/haskell/hlint.vim
index f698d5b4..3aa93fa1 100644
--- a/ale_linters/haskell/hlint.vim
+++ b/ale_linters/haskell/hlint.vim
@@ -13,7 +13,7 @@ function! ale_linters#haskell#hlint#Handle(buffer, lines)
\ 'lnum': l:error.startLine + 0,
\ 'vcol': 0,
\ 'col': l:error.startColumn + 0,
- \ 'text': l:error.severity . ': ' . l:error.hint,
+ \ 'text': l:error.severity . ': ' . l:error.hint . '. Found: ' . l:error.from . ' Why not: ' . l:error.to,
\ 'type': l:error.severity ==# 'Error' ? 'E' : 'W',
\})
endfor