From a3e71c1989f13334ecaeb60f285c41cb40621ca2 Mon Sep 17 00:00:00 2001 From: Dominic Orchard Date: Wed, 4 Sep 2024 22:11:31 +0200 Subject: [PATCH] comment --- src/Language/Fortran/Util/ModFile.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Language/Fortran/Util/ModFile.hs b/src/Language/Fortran/Util/ModFile.hs index 5b44cd62..139a73f2 100644 --- 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))