diff options
| author | John J. Camilleri <john@digitalgrammars.com> | 2021-07-01 14:21:29 +0200 |
|---|---|---|
| committer | John J. Camilleri <john@digitalgrammars.com> | 2021-07-01 14:21:29 +0200 |
| commit | 71d99b9ecb2f59a5591bfdd9ab4695b00acbfd1c (patch) | |
| tree | 5562b7fa81661081367f219f32ed7fd24940450c /src/compiler/GF/Compile/GrammarToCanonical.hs | |
| parent | d5c6aec3ec58b981d702eada8feab6685a0acea4 (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.hs | 6 |
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)) |
