From 316434da407acc9641a7c7dc51086450f2574106 Mon Sep 17 00:00:00 2001
From: foreverbell <dql.foreverbell@gmail.com>
Date: Sat, 2 Jul 2016 12:37:11 +0800
Subject: [PATCH] Invoke ghc-mod with flag -s to get backward compatibility

---
 autoload/ghcmod.vim | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/autoload/ghcmod.vim b/autoload/ghcmod.vim
index 145c614..f34064c 100644
--- a/autoload/ghcmod.vim
+++ b/autoload/ghcmod.vim
@@ -245,7 +245,7 @@ function! ghcmod#add_autogen_dir(path, cmd) "{{{
 endfunction "}}}
 
 function! ghcmod#build_command(args) "{{{
-  let l:cmd = ['ghc-mod', '--silent']
+  let l:cmd = ['ghc-mod', '-s']
 
   let l:dist_top  = s:find_basedir() . '/dist'
   let l:sandboxes = split(glob(l:dist_top . '/dist-*', 1), '\n')
@@ -341,7 +341,7 @@ function! s:find_basedir() "{{{
     try
       lcd `=expand('%:p:h')`
       let b:ghcmod_basedir =
-        \ substitute(vimproc#system(['ghc-mod', '--silent', 'root']), '\n*$', '', '')
+        \ substitute(vimproc#system(['ghc-mod', '-s', 'root']), '\n*$', '', '')
     finally
       lcd `=l:dir`
     endtry