remember to normalise and localise filenames

camfort · Sep 20, 2024 · 955983e · 955983e
1 parent f0c07b3
commit 955983e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Language/Fortran/Util/ModFile.hs b/src/Language/Fortran/Util/ModFile.hs
@@ -257,11 +257,12 @@ genUniqNameToFilenameMap :: FilePath -> ModFiles -> M.Map F.Name (String, Maybe
 genUniqNameToFilenameMap localPath m = M.unions . map perMF $ m
   where
     perMF mf = M.fromList
-                $ [ (n, (fname, Nothing))
+                $ [ (n, (normalise $ localPath </> fname, Nothing))
                      | (_p, modEnv) <- M.toList localModuleMap
                      , (n, _) <- M.elems modEnv ]
               -- decl map information
-               <>  [(n, (fname, Just srcName)) | (n, (_dc, srcName, _)) <- M.toList declMap ]
+               <>  [(n, (normalise $ localPath </> fname, Just srcName))
+                  | (n, (_dc, srcName, _)) <- M.toList declMap ]
 
       where
         -- Make sure that we remove imported declarations so we can