msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Comments only.

Browse Source
This commit is contained in:
bringert
2007-03-25 11:26:03 +00:00
parent 8a435873f2
commit d35727631c
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/Speech/FiniteState.hs
View File

@@ -48,6 +48,7 @@ import qualified GF.Visualization.Graphviz as Dot
type State = Int type State = Int
-- | Type parameters: node id type, state label type, edge label type -- | Type parameters: node id type, state label type, edge label type
-- Data constructor arguments: nodes and edges, start state, final states
data FA n a b = FA !(Graph n a b) !n ![n] data FA n a b = FA !(Graph n a b) !n ![n]
type NFA a = FA State () (Maybe a) type NFA a = FA State () (Maybe a)