From 391b301881bee7de9580f2c6d819144161e6a51d Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 21 Oct 2014 19:20:31 +0000
Subject: ModuleName and Ident are now distinct types

This makes the documentation clearer, and can potentially catch more
programming mistakes.
---
 src/compiler/GF/Compiler.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/compiler/GF/Compiler.hs')

diff --git a/src/compiler/GF/Compiler.hs b/src/compiler/GF/Compiler.hs
index e607c7acc..d8692c681 100644
--- a/src/compiler/GF/Compiler.hs
+++ b/src/compiler/GF/Compiler.hs
@@ -10,11 +10,12 @@ import GF.Compile.CFGtoPGF
 import GF.Compile.GetGrammar
 import GF.Grammar.CFG
 
-import GF.Infra.Ident(showIdent)
+--import GF.Infra.Ident(showIdent)
 import GF.Infra.UseIO
 import GF.Infra.Option
 import GF.Data.ErrM
 import GF.System.Directory
+import GF.Text.Pretty(render)
 
 import Data.Maybe
 import qualified Data.Map as Map
@@ -53,7 +54,7 @@ compileSourceFiles opts fs =
 
 -- | Create a @.pgf@ file from the output of 'parallelBatchCompile'.
 linkGrammars opts (t_src,~cnc_grs@(~(cnc,gr):_)) =
-    do let abs = showIdent (srcAbsName gr cnc)
+    do let abs = render (srcAbsName gr cnc)
            pgfFile = outputPath opts (grammarName' opts abs<.>"pgf")
        t_pgf <- if outputJustPGF opts
                 then maybeIO $ getModificationTime pgfFile
-- 
cgit v1.2.3