From 5fe49ed9f7ac7089301e867e55bfedefcba230dd Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Wed, 2 Nov 2011 11:44:59 +0000 Subject: 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. --- src/compiler/GF/Command/Importing.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/compiler/GF/Command') 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 ---- -- cgit v1.2.3