fix: remove the Indexing progress message when exeption in withHieDb

If any exception was happening in `withHieDb`, the `post` action was
never called, leading to a stale `Indexing` message in the client.

By using `bracket`, we ensure that the `post` message is called in the
event of an exception, cleaning the confusing message in the client.

It does not change the well behaving of the indexing (i.e. if it was
crashing, it is still crashing), but at least user won't be confused by
a stale `Indexing` message.

Author: guibou

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

@@ -902,8 +902,8 @@ indexHieFile se mod_summary srcPath !hash hf = do
             Just pendingHash -> pendingHash /= hash
         unless newerScheduled $ do
           pre optProgressStyle
-          withHieDb (\db -> HieDb.addRefsFromLoaded db targetPath (HieDb.RealFile $ fromNormalizedFilePath srcPath) hash hf')
-          post
+          bracket_ (pre optProgressStyle) post $
+            withHieDb (\db -> HieDb.addRefsFromLoaded db targetPath (HieDb.RealFile $ fromNormalizedFilePath srcPath) hash hf')
   where
     mod_location    = ms_location mod_summary
     targetPath      = Compat.ml_hie_file mod_location