Don't force codegen from the corefile if we just need the hash

wz1000 · wz1000 · commit c16615322695 · 2022-06-19T14:33:07.000+05:30
diff --git a/ghcide/src/Development/IDE/Core/Rules.hs b/ghcide/src/Development/IDE/Core/Rules.hs
@@ -784,7 +784,7 @@ getModIfaceFromDiskRule recorder = defineEarlyCutoff (cmapWithPrio LogShake reco
             { source_version = ver
             , old_value = m_old
             , get_file_version = use GetModificationTime_{missingFileDiagnostics = False}
-            , get_linkable_hashes = \fs -> map linkableHash <$> uses_ GetLinkable fs
+            , get_linkable_hashes = \fs -> map (snd . fromJust . hirCoreFp) <$> uses_ GetModIface fs
             , regenerate = regenerateHiFile session f ms
             }
       r <- loadInterface (hscEnv session) ms linkableType recompInfo

Original file line number	Diff line number	Diff line change
`@@ -784,7 +784,7 @@ getModIfaceFromDiskRule recorder = defineEarlyCutoff (cmapWithPrio LogShake reco`
`784`	`784`	`{ source_version = ver`
`785`	`785`	`, old_value = m_old`
`786`	`786`	`, get_file_version = use GetModificationTime_{missingFileDiagnostics = False}`
`787`		`- , get_linkable_hashes = \fs -> map linkableHash <$> uses_ GetLinkable fs`
	`787`	`+ , get_linkable_hashes = \fs -> map (snd . fromJust . hirCoreFp) <$> uses_ GetModIface fs`
`788`	`788`	`, regenerate = regenerateHiFile session f ms`
`789`	`789`	`}`
`790`	`790`	`r <- loadInterface (hscEnv session) ms linkableType recompInfo`