@@ -184,11 +184,7 @@ moduleImportPaths :: GHC.ParsedModule -> Maybe FilePath
184moduleImportPaths pm
184moduleImportPaths pm
185 | rootModDir == "." = Just rootPathDir
185 | rootModDir == "." = Just rootPathDir
186 | otherwise =
186 | otherwise =
187− -- TODO (MK) stripSuffix (normalise rootModDir) (normalise rootPathDir)
187+ dropTrailingPathSeparator <$> stripSuffix (normalise rootModDir) (normalise rootPathDir)
188− -- would be a better choice but at the moment we do not consistently
189− -- normalize file paths in the Shake graph so we can end up with the
190− -- same module being represented twice in the Shake graph.
191− Just $ dropTrailingPathSeparator $ dropEnd (length rootModDir) rootPathDir
193 ms = GHC.pm_mod_summary pm
189 ms = GHC.pm_mod_summary pm
194 file = GHC.ms_hspp_file ms
190 file = GHC.ms_hspp_file ms