Fix legacy code path

haskell · Jun 28, 2020 · 9fce831 · 9fce831
1 parent 50239a1
commit 9fce831
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Development/IDE/Core/Rules.hs b/src/Development/IDE/Core/Rules.hs
@@ -704,7 +704,9 @@ getModIfaceRule = defineEarlyCutoff $ \GetModIface f -> do
             return (fp, ([], hiFile))
 #else
     tm <- use TypeCheck f
-    return ([], tmr_hiFileResult <$> tm)
+    let !hiFile = extractHiFileResult tm
+    let fp = hiFileFingerPrint <$> hiFile
+    return (fp, ([], tmr_hiFileResult <$> tm))
 #endif
 
 regenerateHiFile :: HscEnvEq -> NormalizedFilePath -> Action ([FileDiagnostic], Maybe HiFileResult)