Build SLF networks with sublattices.

2006-01-04 21:41:12 +00:00
parent 15c26d6c11
commit 718b6a5fd2
6 changed files with 252 additions and 72 deletions
--- 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)