diff --git a/src/Language/Fortran/Util/ModFile.hs b/src/Language/Fortran/Util/ModFile.hs index f496a2a6..d11c262f 100644 --- a/src/Language/Fortran/Util/ModFile.hs +++ b/src/Language/Fortran/Util/ModFile.hs @@ -257,12 +257,11 @@ genUniqNameToFilenameMap :: FilePath -> ModFiles -> M.Map F.Name (String, Maybe genUniqNameToFilenameMap localPath m = M.unions . map perMF $ m where perMF mf = M.fromList - $ [ (n, (normalise $ localPath fname, Nothing)) + $ [ (n, (fname, Nothing)) | (_p, modEnv) <- M.toList localModuleMap , (n, _) <- M.elems modEnv ] -- decl map information - <> [(n, (normalise $ localPath fname, Just srcName)) - | (n, (_dc, srcName, _)) <- M.toList declMap ] + <> [(n, (fname, Just srcName)) | (n, (_dc, srcName, _)) <- M.toList declMap ] where -- Make sure that we remove imported declarations so we can