Use mpickering/hls ghcide branch

At b4c3619346f4fe89ac036322fdd9ed178fb66685

Author: alanz

exe/Main.hs

@@ -223,7 +223,7 @@ main = do
 
         putStrLn "\nStep 4/6: Type checking the files"
         setFilesOfInterest ide $ HashSet.fromList $ map toNormalizedFilePath' files
-        _ <- runActionSync "TypecheckTest" ide $ uses TypeCheck (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
@@ -471,11 +471,11 @@ loadSession dir = liftIO $ do
       let cfps = map fst cs
       -- Delayed to avoid recursion and only run if something changed.
       unless (null cs) (
-        delay "InitialLoad" $ void $ do
+        delay "InitialLoad" ("InitialLoad" :: String, cfps) (void $ do
           cfps' <- liftIO $ filterM (IO.doesFileExist . fromNormalizedFilePath) cfps
           mmt <- uses GetModificationTime cfps'
           let cs_exist = catMaybes (zipWith (<$) cfps' mmt)
-          uses GetModIface cs_exist)
+          uses GetModIface cs_exist))
       return opts
 
 

ghcide

@@ -37,6 +37,7 @@ extra-deps:
 - monad-memo-0.4.1
 - multistate-0.8.0.1
 - ormolu-0.0.5.0
+- opentelemetry-0.3.0
 - parser-combinators-1.2.1
 - regex-base-0.94.0.0
 - regex-tdfa-1.3.1.0

stack-8.6.4.yaml

@@ -28,6 +28,7 @@ extra-deps:
 - indexed-profunctors-0.1
 - lsp-test-0.10.2.0
 - monad-dijkstra-0.1.1.2
+- opentelemetry-0.3.0
 - optics-core-0.2
 - optparse-applicative-0.15.1.0
 - ormolu-0.0.5.0

stack-8.6.5.yaml

@@ -27,6 +27,7 @@ extra-deps:
 - indexed-profunctors-0.1
 - lsp-test-0.10.2.0
 - monad-dijkstra-0.1.1.2
+- opentelemetry-0.3.0
 - optics-core-0.2
 - optparse-applicative-0.15.1.0
 - ormolu-0.0.5.0