summaryrefslogtreecommitdiff
path: root/src/GF/Parsing
diff options
context:
space:
mode:
authorkr.angelov <kr.angelov@gmail.com>2007-09-23 20:01:25 +0000
committerkr.angelov <kr.angelov@gmail.com>2007-09-23 20:01:25 +0000
commit0cd5e62e836e8cb8d2b49f76bfb899081aa2366f (patch)
tree3373e98b7c1b658fbe7b5add25c21cae3ce55264 /src/GF/Parsing
parentf17728ee55b54fb34864d1e2a6b20d7a0c9a06e5 (diff)
remove some redundant dependencies from FCFG
Diffstat (limited to 'src/GF/Parsing')
-rw-r--r--src/GF/Parsing/FCFG.hs2
-rw-r--r--src/GF/Parsing/FCFG/Active.hs3
-rw-r--r--src/GF/Parsing/FCFG/PInfo.hs5
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