1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 |
- if exists('g:loaded_syntastic_haskell_hdevtools_checker')
- finish
- endif
- let g:loaded_syntastic_haskell_hdevtools_checker = 1
- let s:save_cpo = &cpo
- set cpo&vim
- function! SyntaxCheckers_haskell_hdevtools_GetLocList() dict
- if !exists('g:syntastic_haskell_hdevtools_args') && exists('g:hdevtools_options')
- call syntastic#log#oneTimeWarn('variable g:hdevtools_options is deprecated, ' .
- \ 'please use g:syntastic_haskell_hdevtools_args instead')
- let g:syntastic_haskell_hdevtools_args = g:hdevtools_options
- endif
- let makeprg = self.makeprgBuild({
- \ 'exe_after': 'check',
- \ 'fname': syntastic#util#shexpand('%:p') })
- let errorformat =
- \ '%-Z %#,'.
- \ '%W%\m%f:%l:%v%\%%(-%\d%\+%\)%\=: Warning: %m,'.
- \ '%W%\m%f:%l:%v%\%%(-%\d%\+%\)%\=: Warning:,'.
- \ '%E%\m%f:%l:%v%\%%(-%\d%\+%\)%\=: %m,'.
- \ '%E%>%\m%f:%l:%v%\%%(-%\d%\+%\)%\=:,'.
- \ '%+C %#%m,'.
- \ '%W%>%\m%f:%l:%v%\%%(-%\d%\+%\)%\=:,'.
- \ '%+C %#%tarning: %m,'
- return SyntasticMake({
- \ 'makeprg': makeprg,
- \ 'errorformat': errorformat,
- \ 'defaults': {'vcol': 1},
- \ 'postprocess': ['compressWhitespace'] })
- endfunction
- call g:SyntasticRegistry.CreateAndRegisterChecker({
- \ 'filetype': 'haskell',
- \ 'name': 'hdevtools'})
- let &cpo = s:save_cpo
- unlet s:save_cpo
|