From a4ba93cc556dadc33ed95abd9baac0d29236bcfe Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Wed, 4 Jan 2006 21:41:12 +0000
Subject: Build SLF networks with sublattices.

---
 src/GF/Speech/TransformCFG.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/GF/Speech/TransformCFG.hs')

diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs
index 2c920cbda..f2a3a2fba 100644
--- a/src/GF/Speech/TransformCFG.hs
+++ b/src/GF/Speech/TransformCFG.hs
@@ -120,6 +120,9 @@ isDirectLeftRecursive _ = False
 -- * CFG rule utilities
 --
 
+allCats :: CFRules -> [Cat_]
+allCats = map fst
+
 catRules :: CFRules -> Cat_ -> [CFRule_]
 catRules rs c = fromMaybe [] (lookup c rs)
 
-- 
cgit v1.2.3