fix locking in updateReverseDeps

Author: pepeiborra

hls-graph/src/Development/IDE/Graph/Internal/Database.hs

@@ -186,7 +186,8 @@ updateReverseDeps myId db prev new = do
     where
         doOne f id = do
             rdeps <- getReverseDependencies db id
-            Ids.insert (reverseDeps $ databaseReverseDeps db) id (f $ fromMaybe mempty rdeps)
+            withLock (databaseLock db) $
+                Ids.insert (reverseDeps $ databaseReverseDeps db) id (f $ fromMaybe mempty rdeps)
 
 getReverseDependencies :: Database -> Id -> IO (Maybe (HSet.HashSet Id))
 getReverseDependencies db = Ids.lookup (reverseDeps $ databaseReverseDeps db)