summaryrefslogtreecommitdiff
path: root/src/GF/Speech/CFGToFiniteState.hs
diff options
context:
space:
mode:
authorbringert <bringert@cs.chalmers.se>2007-06-20 16:08:23 +0000
committerbringert <bringert@cs.chalmers.se>2007-06-20 16:08:23 +0000
commit6968004f1945530fa3be91f7982d1f225f92267d (patch)
treeef263500ec27db5c20ff718005ed2901cbbae430 /src/GF/Speech/CFGToFiniteState.hs
parent91dcc276687dff51cc8ff1faa0a37c3fcf847871 (diff)
Added regexps grammar printer. This is a first step towards recursion-free SRGS.
Diffstat (limited to 'src/GF/Speech/CFGToFiniteState.hs')
-rw-r--r--src/GF/Speech/CFGToFiniteState.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/CFGToFiniteState.hs b/src/GF/Speech/CFGToFiniteState.hs
index 6f93da40e..692d12a67 100644
--- 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))]