Added isLiteralCat function to PGF.Macros.

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 
 --

src/PGF/Macros.hs

@@ -136,4 +136,5 @@ combinations t = case t of
   []    -> [[]]
   aa:uu -> [a:u | a <- aa, u <- combinations uu]
 
-
+isLiteralCat :: CId -> Bool
+isLiteralCat = (`elem` [mkCId "String", mkCId "Float", mkCId "Int"])