diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-01-05 17:46:30 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-01-05 17:46:30 +0000 |
| commit | ca84f92302438de357793f2548bf56dc9a5d43b2 (patch) | |
| tree | dde069726a6653623f63f9d7353d1e91a8e0c97d /src/GF/Speech/Graph.hs | |
| parent | bffc7df07e2345b19ade6ce2e9718aa3b1bf6a23 (diff) | |
Remove unused sub-networks when generating multiple FAs.
Diffstat (limited to 'src/GF/Speech/Graph.hs')
| -rw-r--r-- | src/GF/Speech/Graph.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/GF/Speech/Graph.hs b/src/GF/Speech/Graph.hs index d018756d7..955c99d91 100644 --- a/src/GF/Speech/Graph.hs +++ b/src/GF/Speech/Graph.hs @@ -18,6 +18,7 @@ module GF.Speech.Graph ( Graph(..), Node, Edge, NodeInfo , nodeInfo , getIncoming, getOutgoing, getNodeLabel , inDegree, outDegree + , nodeLabel , edgeFrom, edgeTo, edgeLabel , reverseGraph, renameNodes ) where @@ -149,6 +150,9 @@ groupEdgesBy f (Graph _ ns es) = where nm = Map.fromList [ (n, (x,[])) | (n,x) <- ns ] -} +nodeLabel :: Node n a -> a +nodeLabel = snd + edgeFrom :: Edge n b -> n edgeFrom (f,_,_) = f |