diff options
author | w0rp <devw0rp@gmail.com> | 2017-07-07 10:59:00 +0100 |
---|---|---|
committer | w0rp <devw0rp@gmail.com> | 2017-07-07 10:59:00 +0100 |
commit | d9a7364dae5af3f193fa9e4cee221730a8ffd46e (patch) | |
tree | 01472a0b7d00e381b62f2f403bb7399b82f891c4 | |
parent | 7ce960ae519e97e26e3c99c4faebe9d5290b487f (diff) | |
download | ale-d9a7364dae5af3f193fa9e4cee221730a8ffd46e.zip |
#710 - Fix a parsing bug caused by the last fix
-rw-r--r-- | autoload/ale/handlers/haskell.vim | 2 | ||||
-rw-r--r-- | 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(''), [ |