Rename GF.Compile.Compute.ConcreteNew to GF.Compile.Compute.Concrete

This commit is contained in:
John J. Camilleri
2021-07-01 14:21:29 +02:00
parent d5c6aec3ec
commit 71d99b9ecb
10 changed files with 654 additions and 657 deletions

View File

@@ -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))