2018-09-30 16:58:57 -04:00
|
|
|
" Author: wizzup <wizzup@gmail.com>
|
|
|
|
|
" Description: ghc-mod for Haskell files
|
|
|
|
|
|
|
|
|
|
call ale#Set('haskell_ghc_mod_executable', 'ghc-mod')
|
|
|
|
|
|
|
|
|
|
function! ale_linters#haskell#ghc_mod#GetCommand (buffer) abort
|
|
|
|
|
let l:executable = ale#Var(a:buffer, 'haskell_ghc_mod_executable')
|
|
|
|
|
|
|
|
|
|
return ale#handlers#haskell_stack#EscapeExecutable(l:executable, 'ghc-mod')
|
|
|
|
|
\ . ' --map-file %s=%t check %s'
|
|
|
|
|
endfunction
|
|
|
|
|
|
|
|
|
|
call ale#linter#Define('haskell', {
|
|
|
|
|
\ 'name': 'ghc_mod',
|
|
|
|
|
\ 'aliases': ['ghc-mod'],
|
2019-03-08 06:04:56 -05:00
|
|
|
\ 'executable': {b -> ale#Var(b, 'haskell_ghc_mod_executable')},
|
|
|
|
|
\ 'command': function('ale_linters#haskell#ghc_mod#GetCommand'),
|
2018-09-30 16:58:57 -04:00
|
|
|
\ 'callback': 'ale#handlers#haskell#HandleGHCFormat',
|
|
|
|
|
\})
|
