Find source for boot files

haskell · Jul 12, 2020 · d7cb09a · d7cb09a
1 parent 9272bfe
commit d7cb09a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/Development/IDE/Core/Compile.hs b/src/Development/IDE/Core/Compile.hs
@@ -286,7 +286,10 @@ generateAndWriteHieFile hscEnv tcm =
     dflags       = hsc_dflags hscEnv
     mod_summary  = pm_mod_summary $ tm_parsed_module tcm
     mod_location = ms_location mod_summary
-    targetPath   = Compat.ml_hie_file mod_location
+    targetPath   = withBootSuffix $ Compat.ml_hie_file mod_location
+    withBootSuffix = case ms_hsc_src mod_summary of
+      HsBootFile -> addBootSuffix
+      _ -> id
 
 generateAndWriteHiFile :: HscEnv -> TcModuleResult -> IO [FileDiagnostic]
 generateAndWriteHiFile hscEnv tc =

diff --git a/src/Development/IDE/Core/Rules.hs b/src/Development/IDE/Core/Rules.hs
@@ -167,7 +167,9 @@ getHomeHieFile :: NormalizedFilePath -> MaybeT IdeAction HieFile
 getHomeHieFile f = do
   ms <- fst <$> useE GetModSummary f
   let normal_hie_f = toNormalizedFilePath' hie_f
-      hie_f = ml_hie_file $ ms_location ms
+      hie_f = case ms_hsc_src ms of
+        HsBootFile -> addBootSuffix (ml_hie_file $ ms_location ms)
+        _ -> ml_hie_file $ ms_location ms
 
   mbHieTimestamp <- either (\(_ :: IOException) -> Nothing) Just <$> (liftIO $ try $ getModificationTime hie_f)
   srcTimestamp   <- MaybeT (either (\(_ :: IOException) -> Nothing) Just <$> (liftIO $ try $ getModificationTime $ fromNormalizedFilePath f))