From 733d527797313b77072a917cea24a225bdbaac74 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Tue, 19 Oct 2004 10:27:28 +0000
Subject: [PATCH] Remove more punctuation characters when printing GSL grammars

---
 src/GF/Speech/PrGSL.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 . ("; " ++))