Added regexps grammar printer. This is a first step towards recursion-free SRGS.

2007-06-20 16:08:23 +00:00
parent 91dcc27668
commit 6968004f19
4 changed files with 21 additions and 7 deletions
--- a/src/GF/Speech/CFGToFiniteState.hs
+++ b/src/GF/Speech/CFGToFiniteState.hs
@@ -52,7 +52,7 @@ type MutRecSets = Map Cat_ MutRecSet
 --

 data MFALabel a = MFASym a | MFASub String
-                deriving Eq
+                deriving (Eq,Ord)

 data MFA a = MFA (DFA (MFALabel a)) [(String,DFA (MFALabel a))]