From a886f7042b2ad16fa3ef120548df9773ffafbb45 Mon Sep 17 00:00:00 2001 From: kr_angelov Date: Thu, 11 Jan 2007 19:19:46 +0000 Subject: [PATCH] remove trace --- src/GF/Conversion/GFC.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/GF/Conversion/GFC.hs b/src/GF/Conversion/GFC.hs index dcaa784f3..5f26167e7 100644 --- a/src/GF/Conversion/GFC.hs +++ b/src/GF/Conversion/GFC.hs @@ -37,7 +37,6 @@ import qualified GF.Conversion.MCFGtoCFG as M2C import GF.Infra.Print import GF.System.Tracing -import qualified Debug.Trace as D ---------------------------------------------------------------------- -- * GFC -> MCFG & CFG, using options to decide which conversion is used @@ -47,7 +46,7 @@ convertGFC :: Options -> (CanonGrammar, Ident) convertGFC opts = \g -> let s = g2s g e = s2e s m = e2m e - in D.trace (show ((M.greatestAbstract (fst g),snd g))) $ trace2 "Options" (show opts) (s, (e, (m, e2c e))) + in trace2 "Options" (show opts) (s, (e, (m, e2c e))) where e2c = M2C.convertGrammar e2m = case getOptVal opts firstCat of Just cat -> flip erasing [identC cat]