From 8424b23765492419318c2d55b5b7b992f66cbe00 Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 20 Dec 2006 20:14:46 +0000 Subject: [PATCH] Removed tracing from PrJSGF. --- src/GF/Speech/PrJSGF.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/GF/Speech/PrJSGF.hs b/src/GF/Speech/PrJSGF.hs index b4ca666a7..3f80e2418 100644 --- a/src/GF/Speech/PrJSGF.hs +++ b/src/GF/Speech/PrJSGF.hs @@ -46,7 +46,7 @@ jsgfPrinter name start opts sisr probs cfg = prJSGF srg sisr "" prJSGF :: SRG -> Maybe SISRFormat -> ShowS prJSGF srg@(SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs}) sisr - = trace (show srg) $ header . nl + = header . nl . mainCat . nl . unlinesS topCatRules . nl . unlinesS (map prRule rs)