From 2497093a5e6d854fad1326fa709292090d3ffda6 Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 4 Jan 2007 20:55:13 +0000 Subject: SISR: top categories do not need the Cat_field field. --- src/GF/Speech/PrJSGF.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/GF/Speech/PrJSGF.hs') 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 '>' -- cgit v1.2.3