1
0
forked from GitHub/gf-core

Moved parser building in the PGF interpreter to PGF.hs from PGF/Raw/Convert.hs, in preparation for doing something more clever about it (e.g. looking at the parser flag).

This commit is contained in:
bjorn
2008-10-16 10:13:25 +00:00
parent e75ccc2542
commit 8d832b5b9a
2 changed files with 10 additions and 7 deletions

View File

@@ -3,7 +3,6 @@ module PGF.Raw.Convert (toPGF,fromPGF) where
import PGF.CId
import PGF.Data
import PGF.Raw.Abstract
import qualified GF.Compile.GeneratePMCFG as PMCFG
import Data.Array.IArray
import qualified Data.Map as Map
@@ -53,11 +52,7 @@ toConcr pgf rexp =
lindefs = Map.empty,
printnames = Map.empty,
paramlincats = Map.empty,
parser = Just (PMCFG.convertConcrete (abstract pgf) cnc)
-- This thunk will be overwritten if there is a parser
-- compiled in the PGF file. We use lazy evaluation here
-- to make sure that buildParserOnDemand is called only
-- if it is needed.
parser = Nothing
}) rexp
in cnc
where