Skip to content

Commit 3dfc695

Browse files
committed
Fix another bug
1 parent f9b492c commit 3dfc695

File tree

1 file changed

+4
-1
lines changed
  • hls-graph/src/Development/IDE/Graph/Internal

1 file changed

+4
-1
lines changed

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

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -135,7 +135,10 @@ spawn db@Database{..} key id mode result = do
135135
built <- readIORef databaseStep
136136
deps <- readIORef deps
137137
let changed = if runChanged == Shake.ChangedRecomputeDiff then built else maybe built resultChanged result
138-
let res = Result runValue built changed deps runStore
138+
-- 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
139142
withLock databaseLock $
140143
Ids.insert databaseValues id (key, Clean res)
141144
pure res

0 commit comments

Comments
 (0)