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/Compile/GeneratePMCFG.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/compiler/GF/Compile/GeneratePMCFG.hs')

diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs
index 40872170c..bd7d4af6b 100644
--- a/src/compiler/GF/Compile/GeneratePMCFG.hs
+++ b/src/compiler/GF/Compile/GeneratePMCFG.hs
@@ -108,7 +108,7 @@ addPMCFG opts gr cenv opath am cm seqs id (GF.Grammar.CncCat mty@(Just (L _ linc
                                                              mprn
                                                              Nothing) = do
   let pcat = protoFCat gr (am,id) lincat
-      pvar = protoFCat gr (identW,cVar) typeStr
+      pvar = protoFCat gr (MN identW,cVar) typeStr
 
       pmcfgEnv0  = emptyPMCFGEnv
 
-- 
cgit v1.2.3