GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki 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 84c306d18c
commit 733d527797
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 . ("; " ++))