Always specify filepath when inferring foreign modules

purescript · May 15, 2016 · 16c6f76 · 16c6f76
1 parent b835de9
commit 16c6f76
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Language/PureScript/Ide/Rebuild.hs b/src/Language/PureScript/Ide/Rebuild.hs
@@ -41,9 +41,10 @@ rebuildFile path = do
 
   outputDirectory <- confOutputPath . envConfiguration <$> ask
 
-  -- Infer foreign modules using their file paths
+  -- For rebuilding, we want to 'RebuildAlways', but for inferring foreign
+  -- modules using their file paths, we need to specify the path in the 'Map'.
   let filePathMap = M.singleton (P.getModuleName m) (Left P.RebuildAlways)
-  foreigns <- P.inferForeignModules filePathMap
+  foreigns <- P.inferForeignModules (M.singleton (P.getModuleName m) (Right path))
 
   -- Silence progress update messages during the build
   let actions = (P.buildMakeActions outputDirectory filePathMap foreigns False)