We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f9b492c commit 3dfc695Copy full SHA for 3dfc695
hls-graph/src/Development/IDE/Graph/Internal/Database.hs
@@ -135,7 +135,10 @@ spawn db@Database{..} key id mode result = do
135
built <- readIORef databaseStep
136
deps <- readIORef deps
137
let changed = if runChanged == Shake.ChangedRecomputeDiff then built else maybe built resultChanged result
138
- let res = Result runValue built changed deps runStore
+ -- only update the deps when the rule ran with changes
139
+ let actual_deps = if runChanged /= Shake.ChangedNothing then deps else previousDeps
140
+ previousDeps= resultDeps =<< result
141
+ let res = Result runValue built changed actual_deps runStore
142
withLock databaseLock $
143
Ids.insert databaseValues id (key, Clean res)
144
pure res
0 commit comments