GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

remove trace

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

3
src/GF/Conversion/GFC.hs
View File

@@ -37,7 +37,6 @@ import qualified GF.Conversion.MCFGtoCFG as M2C
import GF.Infra.Print import GF.Infra.Print
import GF.System.Tracing import GF.System.Tracing
import qualified Debug.Trace as D
---------------------------------------------------------------------- ----------------------------------------------------------------------
-- * GFC -> MCFG & CFG, using options to decide which conversion is used -- * 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 convertGFC opts = \g -> let s = g2s g
e = s2e s e = s2e s
m = e2m e 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 where e2c = M2C.convertGrammar
e2m = case getOptVal opts firstCat of e2m = case getOptVal opts firstCat of
Just cat -> flip erasing [identC cat] Just cat -> flip erasing [identC cat]