diff options
| -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(''), [ |