From 0bf61ef62684e5b3445b915dd2b6ae53eb8e0f38 Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 27 Jun 2007 15:39:42 +0000 Subject: [PATCH] Comment out tracing in CanonToGFCC. It produces lots of junk when generating SRGs. --- src/GF/Canon/CanonToGFCC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/GF/Canon/CanonToGFCC.hs b/src/GF/Canon/CanonToGFCC.hs index 1aeb16c36..38bc6f112 100644 --- a/src/GF/Canon/CanonToGFCC.hs +++ b/src/GF/Canon/CanonToGFCC.hs @@ -175,7 +175,7 @@ canon2canon :: CanonGrammar -> CanonGrammar canon2canon = recollect . map cl2cl . repartition where recollect = M.MGrammar . nubBy (\ (i,_) (j,_) -> i==j) . concatMap M.modules - cl2cl cg = tr $ M.MGrammar $ map c2c $ M.modules cg where + cl2cl cg = {-tr $-} M.MGrammar $ map c2c $ M.modules cg where c2c (c,m) = case m of M.ModMod mo@(M.Module _ _ _ _ _ js) -> (c, M.ModMod $ M.replaceJudgements mo $ mapTree j2j js)