use bracket

Author: soulomoon

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

@@ -924,11 +924,10 @@ indexHieFile se mod_summary srcPath !hash hf = do
             -- If the hash in the pending list doesn't match the current hash, then skip
             Just pendingHash -> pendingHash /= hash
         unless newerScheduled $ do
-          -- Using `finally`, so even if an exception happen during withHieDb call,
+          -- Using `bracket`, so even if an exception happen during withHieDb call,
           -- the the ending part of `reportProgress` (which clean the progress indicator) will still be called.
           indexDoneB <- liftIO newBarrier
-          _ <- liftIO $ async (reportProgress indexDoneB optProgressStyle)
-          flip finally (signalBarrier indexDoneB ()) $
+          bracket_ (liftIO $ async (reportProgress indexDoneB optProgressStyle)) (signalBarrier indexDoneB ()) $
             withHieDb (\db -> HieDb.addRefsFromLoaded db targetPath (HieDb.RealFile $ fromNormalizedFilePath srcPath) hash hf')
     where
     mod_location    = ms_location mod_summary