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 | |
| parent | f17728ee55b54fb34864d1e2a6b20d7a0c9a06e5 (diff) | |
remove some redundant dependencies from FCFG
Diffstat (limited to 'src/GF/Parsing')
| -rw-r--r-- | src/GF/Parsing/FCFG.hs | 2 | ||||
| -rw-r--r-- | src/GF/Parsing/FCFG/Active.hs | 3 | ||||
| -rw-r--r-- | src/GF/Parsing/FCFG/PInfo.hs | 5 |
3 files changed, 0 insertions, 10 deletions
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 |
