From 0cd5e62e836e8cb8d2b49f76bfb899081aa2366f Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Sun, 23 Sep 2007 20:01:25 +0000 Subject: remove some redundant dependencies from FCFG --- src/GF/Parsing/FCFG/Active.hs | 3 --- src/GF/Parsing/FCFG/PInfo.hs | 5 ----- 2 files changed, 8 deletions(-) (limited to 'src/GF/Parsing/FCFG') diff --git a/src/GF/Parsing/FCFG/Active.hs b/src/GF/Parsing/FCFG/Active.hs index 243fc993c..d315ca1cc 100644 --- a/src/GF/Parsing/FCFG/Active.hs +++ b/src/GF/Parsing/FCFG/Active.hs @@ -14,12 +14,9 @@ import GF.Data.Assoc import GF.Data.SortedList import GF.Data.Utilities -import GF.Formalism.GCFG import GF.Formalism.FCFG -import GF.Formalism.MCFG(Lin(..)) import GF.Formalism.Utilities -import GF.Infra.Ident import GF.Infra.PrintClass import GF.Parsing.FCFG.Range diff --git a/src/GF/Parsing/FCFG/PInfo.hs b/src/GF/Parsing/FCFG/PInfo.hs index 0105bf24f..e463cf65a 100644 --- a/src/GF/Parsing/FCFG/PInfo.hs +++ b/src/GF/Parsing/FCFG/PInfo.hs @@ -9,11 +9,8 @@ module GF.Parsing.FCFG.PInfo where -import GF.System.Tracing import GF.Infra.PrintClass - import GF.Formalism.Utilities -import GF.Formalism.GCFG import GF.Formalism.FCFG import GF.Data.SortedList import GF.Data.Assoc @@ -73,8 +70,6 @@ getLeftCornerCat lins buildFCFPInfo :: (Ord c, Ord n, Ord t) => (t -> (c,SyntaxNode RuleId RangeRec)) -> FCFGrammar c n t -> FCFPInfo c n t buildFCFPInfo lexer grammar = - traceCalcFirst grammar $ - tracePrt "MCFG.PInfo - parser info" (prt) $ FCFPInfo { allRules = allrules , topdownRules = topdownrules -- , emptyRules = emptyrules -- cgit v1.2.3