diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2007-09-23 20:01:25 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2007-09-23 20:01:25 +0000 |
| commit | 0cd5e62e836e8cb8d2b49f76bfb899081aa2366f (patch) | |
| tree | 3373e98b7c1b658fbe7b5add25c21cae3ce55264 /src/GF/Parsing/FCFG/PInfo.hs | |
| parent | f17728ee55b54fb34864d1e2a6b20d7a0c9a06e5 (diff) | |
remove some redundant dependencies from FCFG
Diffstat (limited to 'src/GF/Parsing/FCFG/PInfo.hs')
| -rw-r--r-- | src/GF/Parsing/FCFG/PInfo.hs | 5 |
1 files changed, 0 insertions, 5 deletions
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 |