undo; last commit was a mistake

camfort · Sep 20, 2024 · fd46091 · fd46091
1 parent 955983e
commit fd46091
Showing 1 changed file with 2 additions and 3 deletions.
diff --git 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