#710 - Fix a parsing bug caused by the last fix

This commit is contained in:
w0rp 2017-07-07 10:59:00 +01:00
parent 7ce960ae51
commit d9a7364dae
2 changed files with 4 additions and 4 deletions

View File

@ -42,7 +42,7 @@ function! ale#handlers#haskell#HandleGHCFormat(buffer, lines) abort
let l:text = l:errors[2]
else
let l:ghc_type = ''
let l:text = l:match[4][:0] ==# ' ' ? l:match[4][1:] : l:match
let l:text = l:match[4][:0] ==# ' ' ? l:match[4][1:] : l:match[4]
endif
if l:ghc_type ==? 'Warning'

View File

@ -13,13 +13,13 @@ Execute(HandleGhcFormat should handle ghc-mod problems):
\ 'lnum': 2,
\ 'col': 1,
\ 'type': 'E',
\ 'text': ' Suggestion: Use camelCaseFound: my_variable = ...Why not: myVariable = ...',
\ 'text': 'Suggestion: Use camelCaseFound: my_variable = ...Why not: myVariable = ...',
\ },
\ {
\ 'lnum': 6,
\ 'col': 1,
\ 'type': 'E',
\ 'text': ' Warning: Eta reduceFound: myFunc x = succ xWhy not: myFunc = succ',
\ 'type': 'W',
\ 'text': 'Eta reduceFound: myFunc x = succ xWhy not: myFunc = succ',
\ },
\ ],
\ ale#handlers#haskell#HandleGHCFormat(bufnr(''), [