msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

remove trace

Browse Source
This commit is contained in:
kr_angelov
2007-01-11 19:17:36 +00:00
parent ccc248eb20
commit 1e6af79046
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Canon/CanonToGFCC.hs
View File

@@ -175,7 +175,7 @@ canon2canon :: CanonGrammar -> CanonGrammar
canon2canon = recollect . map cl2cl . repartition where canon2canon = recollect . map cl2cl . repartition where
recollect = recollect =
M.MGrammar . nubBy (\ (i,_) (j,_) -> i==j) . concatMap M.modules 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 c2c (c,m) = case m of
M.ModMod mo@(M.Module _ _ _ _ _ js) -> M.ModMod mo@(M.Module _ _ _ _ _ js) ->
(c, M.ModMod $ M.replaceJudgements mo $ mapTree j2j js) (c, M.ModMod $ M.replaceJudgements mo $ mapTree j2j js)