GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-05 17:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Build SLF networks with sublattices.

Browse Source
This commit is contained in:
bringert
2006-01-04 21:41:12 +00:00
parent 15c26d6c11
commit 718b6a5fd2
6 changed files with 252 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Speech/TransformCFG.hs
View File

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