diff options
Diffstat (limited to 'src/GF/Speech/PrJSGF.hs')
| -rw-r--r-- | src/GF/Speech/PrJSGF.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GF/Speech/PrJSGF.hs b/src/GF/Speech/PrJSGF.hs index ec1305b5d..037a4f4e2 100644 --- a/src/GF/Speech/PrJSGF.hs +++ b/src/GF/Speech/PrJSGF.hs @@ -39,7 +39,7 @@ import Text.PrettyPrint.HughesPJ import Debug.Trace width :: Int -width = 80 +width = 75 jsgfPrinter :: Maybe SISRFormat -> Options @@ -92,7 +92,7 @@ prItem sisr t = f 0 | otherwise = (if p >= 1 then parens else id) (alts (map (f 1) xs)) where (es,nes) = partition isEpsilon xs f _ (REConcat []) = text "<NULL>" - f p (REConcat xs) = (if p >= 3 then parens else id) (hsep (map (f 2) xs)) + f p (REConcat xs) = (if p >= 3 then parens else id) (fsep (map (f 2) xs)) f p (RERepeat x) = f 3 x <> char '*' f _ (RESymbol s) = prSymbol sisr t s @@ -125,10 +125,10 @@ comment :: String -> Doc comment s = text "//" <+> text s alts :: [Doc] -> Doc -alts = sep . prepunctuate (text "| ") +alts = fsep . prepunctuate (text "| ") rule :: Bool -> SRGCat -> [Doc] -> Doc -rule pub c xs = sep [p <+> prCat c <+> char '=', nest 2 (alts xs) <+> char ';'] +rule pub c xs = p <+> prCat c <+> char '=' <+> nest 2 (alts xs) <+> char ';' where p = if pub then text "public" else empty -- Pretty-printing utilities |