From 5f0a68c1a4206bbd3cf07ae2b93844dedcc79c74 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 18 Jun 2009 17:31:49 +0000
Subject: bugfix: the optimizer should not filter out rules that refer to
 lexical categories

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

(limited to 'src/GF')

diff --git a/src/GF/Speech/PGFToCFG.hs b/src/GF/Speech/PGFToCFG.hs
index 772ae90c1..4165e0aa1 100644
--- a/src/GF/Speech/PGFToCFG.hs
+++ b/src/GF/Speech/PGFToCFG.hs
@@ -114,7 +114,3 @@ pgfToCFG pgf lang = mkCFG (prCId (lookStartCat pgf)) extCats (startRules ++ conc
     fruleToCFRule (c,FCoerce c') =
         [CFRule (fcatToCat c l) [NonTerminal (fcatToCat c' l)] (CFRes 0)
            | l <- [0..catLinArity c-1]]
-
-
-isLiteralFCat :: FCat -> Bool
-isLiteralFCat = (`elem` [fcatString, fcatInt, fcatFloat, fcatVar])
-- 
cgit v1.2.3