removing a trace

2007-10-12 08:42:52 +00:00
parent 674dea6d57
commit 280493064c
1 changed files with 1 additions and 1 deletions
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -1037,7 +1037,7 @@ allOperDependencies m b =

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