diff options
| author | kr_angelov <kr_angelov@gmail.com> | 2007-01-11 19:19:46 +0000 |
|---|---|---|
| committer | kr_angelov <kr_angelov@gmail.com> | 2007-01-11 19:19:46 +0000 |
| commit | a886f7042b2ad16fa3ef120548df9773ffafbb45 (patch) | |
| tree | 677cc7971f87a7919d33cf48d401f8cc1da2cdd6 | |
| parent | 1e6af790468b46bbd5c9039ca197ec3e3dd647b5 (diff) | |
remove trace
| -rw-r--r-- | src/GF/Conversion/GFC.hs | 3 |
1 files changed, 1 insertions, 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] |