2 files changed, 0 insertions, 8 deletions
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