From dc3f2833441d1a7e00cc04602aab8c72174d54b7 Mon Sep 17 00:00:00 2001 From: bjorn Date: Thu, 16 Oct 2008 10:13:25 +0000 Subject: 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). --- src/PGF/Raw/Convert.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'src/PGF') diff --git a/src/PGF/Raw/Convert.hs b/src/PGF/Raw/Convert.hs index 5a5654ed7..d202ff8dd 100644 --- a/src/PGF/Raw/Convert.hs +++ b/src/PGF/Raw/Convert.hs @@ -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 -- cgit v1.2.3