From 0f4e8468be45a8154098c44caa28cace147aa8ce Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Fri, 26 Sep 2008 15:04:13 +0000
Subject: Added isLiteralCat function to PGF.Macros.

---
 src/GF/Speech/VoiceXML.hs | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'src/GF')

diff --git a/src/GF/Speech/VoiceXML.hs b/src/GF/Speech/VoiceXML.hs
index 14a93c796..27a948863 100644
--- a/src/GF/Speech/VoiceXML.hs
+++ b/src/GF/Speech/VoiceXML.hs
@@ -45,10 +45,6 @@ pgfSkeleton pgf = [(c,[(f,fst (catSkeleton (lookType pgf f))) | f <- fs])
                    | (c,fs) <- Map.toList (catfuns (abstract pgf)),
                      not (isLiteralCat c)]
 
--- FIXME: should this go in a more general module?
-isLiteralCat :: CId -> Bool
-isLiteralCat = (`elem` [mkCId "String", mkCId "Float", mkCId "Int"])
-
 --
 -- * Questions to ask 
 --
-- 
cgit v1.2.3