From ca84f92302438de357793f2548bf56dc9a5d43b2 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Thu, 5 Jan 2006 17:46:30 +0000
Subject: Remove unused sub-networks when generating multiple FAs.

---
 src/GF/Speech/Graph.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/GF/Speech/Graph.hs')

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
 
-- 
cgit v1.2.3