msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Remove more punctuation characters when printing GSL grammars

Browse Source
This commit is contained in:
bringert
2004-10-19 10:27:28 +00:00
parent 357c2fa4cf
commit 96edcf45d9
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/PrGSL.hs
View File

@@ -57,7 +57,7 @@ rmPunct (Tok t:ss) | all isPunct (prt t) = rmPunct ss
rmPunct (s:ss) = s : rmPunct ss rmPunct (s:ss) = s : rmPunct ss
isPunct :: Char -> Bool isPunct :: Char -> Bool
isPunct c = c `elem` "-_.;.,?!" isPunct c = c `elem` "-_.;.,?!()[]{}"
comments :: [String] -> ShowS comments :: [String] -> ShowS
comments = unlinesS . map (showString . ("; " ++)) comments = unlinesS . map (showString . ("; " ++))