diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-05 15:38:47 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-05 15:38:47 +0000 |
| commit | 6ee7296f9dd5290bb3ee581403a18464444ab28b (patch) | |
| tree | e78719e9463866a899bfe5e1cabc26844860e7c0 /src/GF/Speech/PrSRGS.hs | |
| parent | 741dde5a2a00dc737e570a7005663c2534ea4f6d (diff) | |
Changed all SRG printer to take Options and StateGrammar arguments. This makes Custom a lot cleaner.
Diffstat (limited to 'src/GF/Speech/PrSRGS.hs')
| -rw-r--r-- | src/GF/Speech/PrSRGS.hs | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index b68477f62..f3e08fc22 100644 --- a/src/GF/Speech/PrSRGS.hs +++ b/src/GF/Speech/PrSRGS.hs @@ -36,14 +36,11 @@ import qualified Data.Map as Map import qualified Data.Set as Set -srgsXmlPrinter :: Ident -- ^ Grammar name - -> String -- ^ Start category - -> Options - -> Maybe SISRFormat +srgsXmlPrinter :: Maybe SISRFormat -> Bool -- ^ Include probabilities - -> StateGrammar -> String -srgsXmlPrinter name start opts sisr probs = - prSrgsXml sisr probs . makeSRG name start opts + -> Options + -> StateGrammar -> String +srgsXmlPrinter sisr probs opts s = prSrgsXml sisr probs $ makeSRG opts s prSrgsXml :: Maybe SISRFormat -> Bool -> SRG -> String prSrgsXml sisr probs srg@(SRG{grammarName=name,startCat=start, |