comment

camfort · Sep 4, 2024 · a3e71c1 · a3e71c1
1 parent 1fde26a
commit a3e71c1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Language/Fortran/Util/ModFile.hs b/src/Language/Fortran/Util/ModFile.hs
@@ -217,6 +217,8 @@ decodeModFiles' = fmap (map snd) . decodeModFiles
 combinedModuleMap :: ModFiles -> FAR.ModuleMap
 combinedModuleMap = M.unions . map mfModuleMap
 
+-- | Inside the module map, remove all imported declarations so that
+-- we can properly localise declarations to the originator file.
 localisedModuleMap :: FAR.ModuleMap -> FAR.ModuleMap
 localisedModuleMap = M.map (M.filter (not . FA.isImported . snd))