diff options
| author | bringert <unknown> | 2004-10-19 10:27:28 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-10-19 10:27:28 +0000 |
| commit | 96edcf45d99896aee17664b31e4041369b972a8b (patch) | |
| tree | 6cfd5f7c5c8f329823651040f59eba980c622bf9 /src/GF | |
| parent | 357c2fa4cfa1bd5ea8815ff40fd14319fe00ab61 (diff) | |
Remove more punctuation characters when printing GSL grammars
Diffstat (limited to 'src/GF')
| -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 . ("; " ++)) |