Now the compiler maintains more precise information for the source locations of the different definitions. There is a --tags option which generates a list of all identifiers with their source locations.

1 files changed, 4 insertions, 5 deletions

diff --git a/src/compiler/GF/Command/Importing.hs b/src/compiler/GF/Command/Importing.hs
index cbbb7a30e..d8b7f0e0c 100644
--- a/src/compiler/GF/Command/Importing.hs
+++ b/src/compiler/GF/Command/Importing.hs
@@ -55,12 +55,11 @@ importSource src0 opts files = do
 -- for different cf formats
 importCF opts files get = do
        s  <- fmap unlines $ mapM readFile files 
-       let cnc = justModuleName (last files)
-       gf <- case get cnc s of
-               Ok g -> return g
+       gf <- case get (last files) s of
+               Ok gf -> return gf
                Bad s -> error s ---- 
        Ok gr <- appIOE $ compileSourceGrammar opts gf
-       epgf <- appIOE $ link opts (identC (BS.pack (cnc ++ "Abs"))) gr
+       epgf <- appIOE $ link opts (identC (BS.pack (justModuleName (last files) ++ "Abs"))) gr
        case epgf of
          Ok pgf -> return pgf
-         Bad s -> error s ----
+         Bad s  -> error s ----