From f231a75b87cbb989b3a2deeb8bc7c3d012ce584d Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 12 Jun 2008 18:12:43 +0000
Subject: [PATCH] Exclude literal categories from generated VoiceXML.

---
 src-3.0/GF/Speech/VoiceXML.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src-3.0/GF/Speech/VoiceXML.hs b/src-3.0/GF/Speech/VoiceXML.hs
index a2aa7d6d6..14a93c796 100644
--- a/src-3.0/GF/Speech/VoiceXML.hs
+++ b/src-3.0/GF/Speech/VoiceXML.hs
@@ -42,7 +42,12 @@ type Skeleton = [(CId, [(CId, [CId])])]
 
 pgfSkeleton :: PGF -> Skeleton
 pgfSkeleton pgf = [(c,[(f,fst (catSkeleton (lookType pgf f))) | f <- fs]) 
-                   | (c,fs) <- Map.toList (catfuns (abstract pgf))]
+                   | (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