2009-11-21 01:54:03 -05:00
|
|
|
"============================================================================
|
|
|
|
"File: haskell.vim
|
|
|
|
"Description: Syntax checking plugin for syntastic.vim
|
|
|
|
"Maintainer: Anthony Carapetis <anthony.carapetis 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("loaded_haskell_syntax_checker")
|
|
|
|
finish
|
|
|
|
endif
|
|
|
|
let loaded_haskell_syntax_checker = 1
|
|
|
|
|
2011-07-06 21:30:19 -04:00
|
|
|
"bail if the user doesnt have ghc-mod installed
|
|
|
|
if !executable("ghc-mod")
|
2009-11-21 01:54:03 -05:00
|
|
|
finish
|
|
|
|
endif
|
|
|
|
|
2012-03-27 07:21:59 -04:00
|
|
|
if !exists('g:syntastic_haskell_checker_args')
|
|
|
|
let g:syntastic_haskell_checker_args = '--hlintOpt="--language=XmlSyntax"'
|
|
|
|
endif
|
|
|
|
|
2009-11-21 01:54:03 -05:00
|
|
|
function! SyntaxCheckers_haskell_GetLocList()
|
2012-03-27 07:21:59 -04:00
|
|
|
let ghcmod = 'ghc-mod ' . g:syntastic_haskell_checker_args
|
2011-12-18 15:26:39 -05:00
|
|
|
let makeprg =
|
|
|
|
\ "{ ".
|
2012-03-27 07:21:59 -04:00
|
|
|
\ ghcmod . " check ". shellescape(expand('%')) . "; " .
|
|
|
|
\ ghcmod . " lint " . shellescape(expand('%')) . ";" .
|
2011-10-13 12:39:33 -04:00
|
|
|
\ " }"
|
2011-12-18 15:26:39 -05:00
|
|
|
let errorformat = '%-G\\s%#,%f:%l:%c:%trror: %m,%f:%l:%c:%tarning: %m,'.
|
|
|
|
\ '%f:%l:%c: %trror: %m,%f:%l:%c: %tarning: %m,%f:%l:%c:%m,'.
|
|
|
|
\ '%E%f:%l:%c:,%Z%m,'
|
2009-11-21 01:54:03 -05:00
|
|
|
|
|
|
|
return SyntasticMake({ 'makeprg': makeprg, 'errorformat': errorformat })
|
|
|
|
endfunction
|
2011-04-14 17:57:47 -04:00
|
|
|
|
|
|
|
function! SyntaxCheckers_lhaskell_GetLocList()
|
|
|
|
return SyntaxCheckers_haskell_GetLocList()
|
|
|
|
endfunction
|