From d9a7364dae5af3f193fa9e4cee221730a8ffd46e Mon Sep 17 00:00:00 2001 From: w0rp Date: Fri, 7 Jul 2017 10:59:00 +0100 Subject: [PATCH] #710 - Fix a parsing bug caused by the last fix --- autoload/ale/handlers/haskell.vim | 2 +- test/handler/test_ghc_mod_handler.vader | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/autoload/ale/handlers/haskell.vim b/autoload/ale/handlers/haskell.vim index bd2414a8..5d417c89 100644 --- a/autoload/ale/handlers/haskell.vim +++ b/autoload/ale/handlers/haskell.vim @@ -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' diff --git a/test/handler/test_ghc_mod_handler.vader b/test/handler/test_ghc_mod_handler.vader index 53991bb6..b8d09a54 100644 --- a/test/handler/test_ghc_mod_handler.vader +++ b/test/handler/test_ghc_mod_handler.vader @@ -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(''), [