vim/syntastic
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Rework of the haskell/ghc-mod checker.

Browse Source
This commit is contained in:
LCD 47 2013-04-25 22:40:03 +03:00
parent 2c894c951c
commit 9493124831
1 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
syntax_checkers/haskell/ghc-mod.vim
View File

@ -15,26 +15,32 @@ if exists("g:loaded_syntastic_haskell_ghc_mod_checker")
endif endif
let g:loaded_syntastic_haskell_ghc_mod_checker=1 let g:loaded_syntastic_haskell_ghc_mod_checker=1
if !exists('g:syntastic_haskell_checker_args')
let g:syntastic_haskell_checker_args = '--hlintOpt="--language=XmlSyntax"'
endif
function! SyntaxCheckers_haskell_ghc_mod_IsAvailable() function! SyntaxCheckers_haskell_ghc_mod_IsAvailable()
return executable('ghc-mod') return executable('ghc-mod')
endfunction endfunction
function! SyntaxCheckers_haskell_ghc_mod_GetLocList() function! SyntaxCheckers_haskell_ghc_mod_GetLocList()
let ghcmod = 'ghc-mod ' . g:syntastic_haskell_checker_args let errorformat =
let makeprg = \ '%-G%\s%#,' .
\ "{ ". \ '%f:%l:%c:%trror: %m,' .
\ ghcmod . " check ". shellescape(expand('%')) . "; " . \ '%f:%l:%c:%tarning: %m,'.
\ ghcmod . " lint " . shellescape(expand('%')) . ";" . \ '%f:%l:%c: %trror: %m,' .
\ " }" \ '%f:%l:%c: %tarning: %m,' .
let errorformat = '%-G\\s%#,%f:%l:%c:%trror: %m,%f:%l:%c:%tarning: %m,'. \ '%f:%l:%c:%m,' .
\ '%f:%l:%c: %trror: %m,%f:%l:%c: %tarning: %m,%f:%l:%c:%m,'. \ '%E%f:%l:%c:,' .
\ '%E%f:%l:%c:,%Z%m,' \ '%Z%m'
return SyntasticMake({ 'makeprg': makeprg, 'errorformat': errorformat }) let makeprg = syntastic#makeprg#build({
\ 'exe': 'ghc-mod check',
\ 'args': '--hlintOpt="--language=XmlSyntax"' })
let loclist1 = SyntasticMake({ 'makeprg': makeprg, 'errorformat': errorformat })
let makeprg = syntastic#makeprg#build({
\ 'exe': 'ghc-mod lint',
\ 'args': '--hlintOpt="--language=XmlSyntax"' })
let loclist2 = SyntasticMake({ 'makeprg': makeprg, 'errorformat': errorformat })
return loclist1 + loclist2
endfunction endfunction
call g:SyntasticRegistry.CreateAndRegisterChecker({ call g:SyntasticRegistry.CreateAndRegisterChecker({