diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-07 23:58:41 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-07 23:58:41 +0000 |
| commit | 998c20d09850a30a5b9142202645b6f6995a1818 (patch) | |
| tree | 6d2b9feef4844a76cabfacfcd6f6a4e0faeffc4f /src/GF/Speech/PrJSGF.hs | |
| parent | 118468ce1611f934ccd06787b00c4329bec57b5d (diff) | |
Use ENBF to generate SRGS.
Diffstat (limited to 'src/GF/Speech/PrJSGF.hs')
| -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 9d6dca598..8b12443a0 100644 --- a/src/GF/Speech/PrJSGF.hs +++ b/src/GF/Speech/PrJSGF.hs @@ -58,7 +58,7 @@ prJSGF sisr srg@(SRG{grammarName=name,startCat=start,origStartCat=origStart,rule rule False cat (map prAlt (ebnfSRGAlts rhs)) -- rule False cat (map prAlt rhs) -- FIXME: use the probability - prAlt (EBnfSRGAlt mp n rhs) = sep [initTag, prItem sisr n rhs, finalTag] + prAlt (EBnfSRGAlt mp n rhs) = sep [initTag, parens (prItem sisr n rhs), finalTag] -- prAlt (SRGAlt mp n rhs) = initTag <+> prItem sisr n rhs <+> finalTag where initTag | isEmpty t = empty | otherwise = text "<NULL>" <+> t |