From 9cf21436ce2617c88d7776d554207ff883a7c2e5 Mon Sep 17 00:00:00 2001
From: LCD 47 <lcd047@gmail.com>
Date: Thu, 10 Apr 2014 09:59:36 +0300
Subject: [PATCH] New checker for haskell: scan.

---
 plugin/syntastic.vim             |  2 +-
 syntax_checkers/haskell/scan.vim | 40 ++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+), 1 deletion(-)
 create mode 100644 syntax_checkers/haskell/scan.vim

diff --git a/plugin/syntastic.vim b/plugin/syntastic.vim
index 72e6359f..3f826c91 100644
--- a/plugin/syntastic.vim
+++ b/plugin/syntastic.vim
@@ -18,7 +18,7 @@ if has('reltime')
     let g:syntastic_start = reltime()
 endif
 
-let g:syntastic_version = '3.4.0-23'
+let g:syntastic_version = '3.4.0-24'
 
 " Sanity checks {{{1
 
diff --git a/syntax_checkers/haskell/scan.vim b/syntax_checkers/haskell/scan.vim
new file mode 100644
index 00000000..8b185051
--- /dev/null
+++ b/syntax_checkers/haskell/scan.vim
@@ -0,0 +1,40 @@
+"============================================================================
+"File:        scan.vim
+"Description: Syntax checking plugin for syntastic.vim
+"Maintainer:  LCD 47 <lcd047 at gmail dot com>
+"License:     This program is free software. It comes without any warranty,
+"             to the extent permitted by applicable law. You can redistribute
+"             it and/or modify it under the terms of the Do What The Fuck You
+"             Want To Public License, Version 2, as published by Sam Hocevar.
+"             See http://sam.zoy.org/wtfpl/COPYING for more details.
+"
+"============================================================================
+
+if exists('g:loaded_syntastic_haskell_scan_checker')
+    finish
+endif
+let g:loaded_syntastic_haskell_scan_checker = 1
+
+let s:save_cpo = &cpo
+set cpo&vim
+
+function! SyntaxCheckers_haskell_scan_GetLocList() dict
+    let makeprg = self.makeprgBuild({})
+
+    let errorformat = '%f:%l:%v: %m'
+
+    return SyntasticMake({
+        \ 'makeprg': makeprg,
+        \ 'errorformat': errorformat,
+        \ 'subtype': 'Style',
+        \ 'postprocess': ['sort'] })
+endfunction
+
+call g:SyntasticRegistry.CreateAndRegisterChecker({
+    \ 'filetype': 'haskell',
+    \ 'name': 'scan'})
+
+let &cpo = s:save_cpo
+unlet s:save_cpo
+
+" vim: set et sts=4 sw=4: