Update to use ghcide based on mpickering/wip/stale-logic

Author: alanz

exe/Main.hs

@@ -219,13 +219,14 @@ main = do
         putStrLn "\nStep 3/6: Initializing the IDE"
         vfs <- makeVFSHandle
         debouncer <- newAsyncDebouncer
-        (ide, _worker) <- initialise def mainRule (pure $ IdInt 0) (showEvent lock) (logger Info) debouncer (defaultIdeOptions $ loadSession dir) vfs
+        (ide, worker) <- initialise def mainRule (pure $ IdInt 0) (showEvent lock) (logger Info) debouncer (defaultIdeOptions $ loadSession dir) vfs
 
         putStrLn "\nStep 4/6: Type checking the files"
         setFilesOfInterest ide $ HashSet.fromList $ map toNormalizedFilePath' files
         _ <- runActionSync "TypecheckTest" ide $ uses TypeCheck (map toNormalizedFilePath' files)
 --        results <- runActionSync ide $ use TypeCheck $ toNormalizedFilePath' "src/Development/IDE/Core/Rules.hs"
 --        results <- runActionSync ide $ use TypeCheck $ toNormalizedFilePath' "exe/Main.hs"
+        cancel worker
         return ()
 
 expandFiles :: [FilePath] -> IO [FilePath]

ghcide

@@ -83,6 +83,7 @@ data PluginCommand = forall a. (FromJSON a) =>
                 , commandDesc :: T.Text
                 , commandFunc :: CommandFunction a
                 }
+
 -- ---------------------------------------------------------------------
 
 type CommandFunction a = LSP.LspFuncs Config