diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-20 20:14:46 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-20 20:14:46 +0000 |
| commit | e74d10952e299c77527cdf76153d90213b7737c7 (patch) | |
| tree | f2b420518d3b7aee6c187c0ec0d2f1857ac6d5dd /src | |
| parent | f9621483a0caeb49512bf4d15420bd05ea57cb22 (diff) | |
Removed tracing from PrJSGF.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/PrJSGF.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |