summaryrefslogtreecommitdiff
path: root/src/compiler/GF/Compile/GrammarToCanonical.hs
diff options
context:
space:
mode:
authorJohn J. Camilleri <john@digitalgrammars.com>2021-07-01 14:21:29 +0200
committerJohn J. Camilleri <john@digitalgrammars.com>2021-07-01 14:21:29 +0200
commit71d99b9ecb2f59a5591bfdd9ab4695b00acbfd1c (patch)
tree5562b7fa81661081367f219f32ed7fd24940450c /src/compiler/GF/Compile/GrammarToCanonical.hs
parentd5c6aec3ec58b981d702eada8feab6685a0acea4 (diff)
Rename GF.Compile.Compute.ConcreteNew to GF.Compile.Compute.Concrete
Diffstat (limited to 'src/compiler/GF/Compile/GrammarToCanonical.hs')
-rw-r--r--src/compiler/GF/Compile/GrammarToCanonical.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/compiler/GF/Compile/GrammarToCanonical.hs b/src/compiler/GF/Compile/GrammarToCanonical.hs
index 33f35ad08..d43256177 100644
--- a/src/compiler/GF/Compile/GrammarToCanonical.hs
+++ b/src/compiler/GF/Compile/GrammarToCanonical.hs
@@ -19,7 +19,7 @@ import GF.Compile.Compute.Value(Predefined(..))
import GF.Infra.Ident(ModuleName(..),Ident,prefixIdent,showIdent,isWildIdent)
import GF.Infra.Option(optionsPGF)
import PGF.Internal(Literal(..))
-import GF.Compile.Compute.ConcreteNew(normalForm,resourceValues)
+import GF.Compile.Compute.Concrete(normalForm,resourceValues)
import GF.Grammar.Canonical as C
import Debug.Trace
@@ -72,7 +72,7 @@ concrete2canonical gr cenv absname cnc modinfo =
[lincat|(_,Left lincat)<-defs]
[lin|(_,Right lin)<-defs]
where
- defs = concatMap (toCanonical gr absname cenv) .
+ defs = concatMap (toCanonical gr absname cenv) .
M.toList $
jments modinfo
@@ -189,7 +189,7 @@ convert' gr vs = ppT
_ -> VarValue (gQId cPredef n) -- hmm
where
p = PredefValue . PredefId
-
+
ppP p =
case p of
PC c ps -> ParamPattern (Param (gId c) (map ppP ps))