hasufell/ale
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
autoload/ale/handlers/haskell.vim
View File

@ -42,7 +42,7 @@ function! ale#handlers#haskell#HandleGHCFormat(buffer, lines) abort
let l:text = l:errors[2] let l:text = l:errors[2]
else else
let l:ghc_type = '' 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 endif
if l:ghc_type ==? 'Warning' if l:ghc_type ==? 'Warning'

6
test/handler/test_ghc_mod_handler.vader
View File

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