diff options
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 |