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.hs | 2 -- src/GF/Parsing/FCFG/Active.hs | 3 --- src/GF/Parsing/FCFG/PInfo.hs | 5 ----- 3 files changed, 10 deletions(-) (limited to 'src/GF/Parsing') diff --git a/src/GF/Parsing/FCFG.hs b/src/GF/Parsing/FCFG.hs index 9309dc78c..dfe26d0b3 100644 --- a/src/GF/Parsing/FCFG.hs +++ b/src/GF/Parsing/FCFG.hs @@ -13,8 +13,6 @@ module GF.Parsing.FCFG import GF.Data.Operations (Err(..)) import GF.Formalism.Utilities -import GF.Formalism.GCFG -import GF.Formalism.MCFG import GF.Parsing.FCFG.PInfo import qualified GF.Parsing.FCFG.Active as Active 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