diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/PrGSL.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/PrGSL.hs b/src/GF/Speech/PrGSL.hs index 0d7cb6c39..1d505bea1 100644 --- a/src/GF/Speech/PrGSL.hs +++ b/src/GF/Speech/PrGSL.hs @@ -57,7 +57,7 @@ rmPunct (Tok t:ss) | all isPunct (prt t) = rmPunct ss rmPunct (s:ss) = s : rmPunct ss isPunct :: Char -> Bool -isPunct c = c `elem` "-_.;.,?!" +isPunct c = c `elem` "-_.;.,?!()[]{}" comments :: [String] -> ShowS comments = unlinesS . map (showString . ("; " ++)) |