#710 - Fix a parsing bug caused by the last fix
This commit is contained in:
parent
a040878ebc
commit
2f2af4315b
2 changed files with 4 additions and 4 deletions
|
@ -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'
|
||||
|
|
|
@ -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(''), [
|
||||
|
|
Reference in a new issue