From c64490f5a04d30730bb478f70e65bd108f425135 Mon Sep 17 00:00:00 2001
From: Zubin Duggal <zubin@cmi.ac.in>
Date: Wed, 16 Dec 2020 23:51:53 +0530
Subject: [PATCH] Restore kick (#676)

---
 haskell-language-server.cabal | 1 +
 src/Ide/Main.hs               | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/haskell-language-server.cabal b/haskell-language-server.cabal
index 70873b6688..ebded4143b 100644
--- a/haskell-language-server.cabal
+++ b/haskell-language-server.cabal
@@ -67,6 +67,7 @@ library
     , optparse-applicative
     , optparse-simple
     , process
+    , shake
     , unordered-containers
 
   ghc-options:      -Wall -Wredundant-constraints -Wno-name-shadowing
diff --git a/src/Ide/Main.hs b/src/Ide/Main.hs
index 4eda145c40..652ff517c0 100644
--- a/src/Ide/Main.hs
+++ b/src/Ide/Main.hs
@@ -54,6 +54,7 @@ import System.FilePath
 import System.IO
 import qualified System.Log.Logger as L
 import System.Time.Extra
+import Development.Shake (action)
 
 -- ---------------------------------------------------------------------
 -- ghcide partialhandlers
@@ -136,7 +137,7 @@ runLspMode lspArgs@LspArguments{..} idePlugins = do
                     -- , optCheckProject   = checkProject config
                     }
             debouncer <- newAsyncDebouncer
-            initialise caps (mainRule >> pluginRules plugins)
+            initialise caps (mainRule >> pluginRules plugins >> action kick)
                 getLspId event wProg wIndefProg hlsLogger debouncer options vfs
     else do
         -- GHC produces messages with UTF8 in them, so make sure the terminal doesn't error