Correct completion token placement

Author: nlander

ghcide/src/Development/IDE/Core/Actions.hs

@@ -75,8 +75,9 @@ lookupMod HieDbWriter{indexQueue} hieFile moduleName uid _boot = MaybeT $ do
           moduleSource <- hie_hs_src <$> loadHieFile (mkUpdater nc) hieFile
           BS.writeFile writeOutPath moduleSource
       liftIO $ atomically $
-        unGetTQueue indexQueue $ \withHieDb -> withHieDb $ \db -> do
-          HieDb.addSrcFile db hieFile writeOutPath False
+        unGetTQueue indexQueue $ \withHieDb -> do
+          withHieDb $ \db ->
+            HieDb.addSrcFile db hieFile writeOutPath False
           putMVar completionToken ()
       pure $ moduleUri
       where

ghcide/src/Development/IDE/Types/HscEnvEq.hs

@@ -15,7 +15,7 @@ module Development.IDE.Types.HscEnvEq
 import           Control.Concurrent.Async        (Async, async, waitCatch)
 import           Control.Concurrent.MVar         (newEmptyMVar, putMVar, readMVar)
 import           Control.Concurrent.STM          (atomically)
-import           Control.Concurrent.STM.TQueue   (unGetTQueue)
+import           Control.Concurrent.STM.TQueue   (writeTQueue)
 import           Control.Concurrent.Strict       (modifyVar, newVar)
 import           Control.DeepSeq                 (force)
 import           Control.Exception               (evaluate, mask, throwIO)
@@ -133,9 +133,10 @@ newHscEnvEqWithImportPaths envImportPaths recorder se hscEnv deps = do
         deleteMissingDependencySources :: IO ()
         deleteMissingDependencySources = do
             completionToken <- newEmptyMVar
-            atomically $ unGetTQueue (indexQueue $ hiedbWriter se) $
-                \withHieDb -> withHieDb $ \db -> do
-                    removeDependencySrcFiles db
+            atomically $ writeTQueue (indexQueue $ hiedbWriter se) $
+                \withHieDb -> do
+                    withHieDb $ \db ->
+                        removeDependencySrcFiles db
                     putMVar completionToken ()
             readMVar completionToken
         indexPackageHieFiles :: Package -> [Module] -> IO ()