diff options
Diffstat (limited to 'src/GF/Speech/PrJSGF.hs')
| -rw-r--r-- | src/GF/Speech/PrJSGF.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/GF/Speech/PrJSGF.hs b/src/GF/Speech/PrJSGF.hs index a94ae2ca2..d1d904dbb 100644 --- a/src/GF/Speech/PrJSGF.hs +++ b/src/GF/Speech/PrJSGF.hs @@ -38,13 +38,10 @@ import Text.PrettyPrint.HughesPJ import Debug.Trace -jsgfPrinter :: Ident -- ^ Grammar name - -> String -- ^ Start category +jsgfPrinter :: Maybe SISRFormat -> Options - -> Maybe SISRFormat -> StateGrammar -> String -jsgfPrinter name start opts sisr = - show . prJSGF sisr . makeSimpleSRG name start opts +jsgfPrinter sisr opts s = show $ prJSGF sisr $ makeSimpleSRG opts s prJSGF :: Maybe SISRFormat -> SRG -> Doc prJSGF sisr srg@(SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs}) |