From 5bfaf10de597af504e6d2784309e533b09a6451c Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Fri, 28 Aug 2015 13:59:43 +0000
Subject: Comment out some dead code found with -fwarn-unused-binds

Also fixed some warnings and tightened some imports
---
 src/compiler/GF/Speech/GSL.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/compiler/GF/Speech/GSL.hs')

diff --git a/src/compiler/GF/Speech/GSL.hs b/src/compiler/GF/Speech/GSL.hs
index ca49afb61..d9d6af0cc 100644
--- a/src/compiler/GF/Speech/GSL.hs
+++ b/src/compiler/GF/Speech/GSL.hs
@@ -78,8 +78,8 @@ keepSymbol _ = True
 showToken :: Token -> Doc
 showToken = pp . map toLower
 
-isPunct :: Char -> Bool
-isPunct c = c `elem` "-_.:;.,?!()[]{}"
+--isPunct :: Char -> Bool
+--isPunct c = c `elem` "-_.:;.,?!()[]{}"
 
 comment :: String -> Doc
 comment s = ";" <+> s
-- 
cgit v1.2.3