diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-06-27 15:39:42 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-06-27 15:39:42 +0000 |
| commit | c3c84f65744d1a1860d527d3f52c897953f6f8c0 (patch) | |
| tree | 415e5cffb9a99d9ab09a395c101d1d0d02555d8f /src | |
| parent | 2ff350ae59816ee86fb1508d3ffbe83578b7c9d4 (diff) | |
Comment out tracing in CanonToGFCC. It produces lots of junk when generating SRGs.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Canon/CanonToGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |