diff --git a/autoload/ale/handlers/haskell.vim b/autoload/ale/handlers/haskell.vim
index bd2414a..5d417c8 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 53991bb..b8d09a5 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(''), [