From 1e6af790468b46bbd5c9039ca197ec3e3dd647b5 Mon Sep 17 00:00:00 2001 From: kr_angelov Date: Thu, 11 Jan 2007 19:17:36 +0000 Subject: [PATCH] remove trace --- 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 3ed2bc9a8..65b591acd 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)