Update Database.hs

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

Author: soulomoon

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

@@ -258,11 +258,6 @@ updateStatus res = Focus.alter
     (Just . maybe (KeyDetails res mempty)
     (\it -> it{keyStatus = res}))
 
--- alterStatus :: Monad m => (Status -> Status) -> Focus.Focus KeyDetails m ()
--- alterStatus f = Focus.alter
---     (Just . maybe (KeyDetails res mempty)
---     (\it -> it{keyStatus = res}))
-
 -- | Returns the set of dirty keys annotated with their age (in # of builds)
 getDirtySet :: Database -> IO [(Key, Int)]
 getDirtySet db = do