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

removing a trace

Browse Source
This commit is contained in:
aarne
2007-10-12 08:42:52 +00:00
parent cf3fcbf582
commit 1fb749a5ec
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Compile/CheckGrammar.hs
View File

@@ -1037,7 +1037,7 @@ allOperDependencies m b =
topoSortOpers :: [(Ident,[Ident])] -> Err [Ident] topoSortOpers :: [(Ident,[Ident])] -> Err [Ident]
topoSortOpers st = do topoSortOpers st = do
let eops = topoTest (trace (show st) st) let eops = topoTest st
either either
return return
(\ops -> Bad ("circular definitions:" +++ unwords (map prt (head ops)))) (\ops -> Bad ("circular definitions:" +++ unwords (map prt (head ops))))