diff options
| author | kr_angelov <kr_angelov@gmail.com> | 2007-01-11 19:17:36 +0000 |
|---|---|---|
| committer | kr_angelov <kr_angelov@gmail.com> | 2007-01-11 19:17:36 +0000 |
| commit | 1e6af790468b46bbd5c9039ca197ec3e3dd647b5 (patch) | |
| tree | 28c556cc6ebee8fcfded7e165ff22cda31077b0a /src | |
| parent | ccc248eb209d5b3e16ff11455a802335e3f1d01a (diff) | |
remove trace
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 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) |