diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-03-31 15:31:33 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-03-31 15:31:33 +0000 |
| commit | 8dfa27bb6d8a42a112b329fc845db538141af592 (patch) | |
| tree | 48b8b9ff0679bdd5ed32e74c33b0ebd7627dff52 | |
| parent | ae30eca84446f8968341275518fe263660ec0534 (diff) | |
Added colon to the list of punctuation chars in GSL generation.
| -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 b204ae6c3..2c06d13d1 100644 --- a/src/GF/Speech/PrGSL.hs +++ b/src/GF/Speech/PrGSL.hs @@ -69,7 +69,7 @@ showToken :: Token -> String showToken t = map toLower (prt t) isPunct :: Char -> Bool -isPunct c = c `elem` "-_.;.,?!()[]{}" +isPunct c = c `elem` "-_.:;.,?!()[]{}" comments :: [String] -> ShowS comments = unlinesS . map (showString . ("; " ++)) |