diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-04 20:55:13 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-04 20:55:13 +0000 |
| commit | 2497093a5e6d854fad1326fa709292090d3ffda6 (patch) | |
| tree | 3cac373337e69e6103bbbe6e38ac37cdeacfe335 /src/GF/Speech/PrJSGF.hs | |
| parent | bead8666735df23d439cf009016288229c0aae48 (diff) | |
SISR: top categories do not need the Cat_field field.
Diffstat (limited to 'src/GF/Speech/PrJSGF.hs')
| -rw-r--r-- | src/GF/Speech/PrJSGF.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/GF/Speech/PrJSGF.hs b/src/GF/Speech/PrJSGF.hs index f284f941d..02d455f73 100644 --- a/src/GF/Speech/PrJSGF.hs +++ b/src/GF/Speech/PrJSGF.hs @@ -68,14 +68,11 @@ prJSGF srg@(SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs} finalTag = tag sisr (profileFinalSISR n) topCatRules = [rule True (catFormId tc) (map (it tc) cs) | (tc,cs) <- srgTopCats srg] - where it i c = prCat c <+> tag sisr (topCatSISR (catFieldId i) c) + where it i c = prCat c <+> tag sisr (topCatSISR c) catFormId :: String -> String catFormId = (++ "_cat") -catFieldId :: String -> String -catFieldId = (++ "_field") - prCat :: SRGCat -> Doc prCat c = char '<' <> text c <> char '>' |