diff options
Diffstat (limited to 'src/compiler/GF/Speech/SRG.hs')
| -rw-r--r-- | src/compiler/GF/Speech/SRG.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Speech/SRG.hs b/src/compiler/GF/Speech/SRG.hs index a0a616561..9d51e52e9 100644 --- a/src/compiler/GF/Speech/SRG.hs +++ b/src/compiler/GF/Speech/SRG.hs @@ -129,9 +129,9 @@ renameCats prefix cfg = mapCFGCats renameCat cfg badCat c = error ("GF.Speech.SRG.renameCats: " ++ c ++ "\n" ++ prCFG cfg) cfRulesToSRGRule :: [CFRule] -> SRGRule -cfRulesToSRGRule rs@(r:_) = SRGRule (lhsCat r) rhs +cfRulesToSRGRule rs@(r:_) = SRGRule (ruleLhs r) rhs where - alts = [((n,Nothing),mkSRGSymbols 0 ss) | CFRule c ss n <- rs] + alts = [((n,Nothing),mkSRGSymbols 0 ss) | Rule c ss n <- rs] rhs = [SRGAlt p n (srgItem sss) | ((n,p),sss) <- buildMultiMap alts ] mkSRGSymbols _ [] = [] |