diff options
| author | bringert <unknown> | 2005-09-15 17:10:44 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-09-15 17:10:44 +0000 |
| commit | 5171e7d384d45196c09bc49be6f9ce6c5b279bab (patch) | |
| tree | f88b022dad0487374edd51d67c5a921266a1af0c /src/GF/Speech | |
| parent | 989fb2e4d37f77171ffa0a27c6d92826985118e8 (diff) | |
Fixed some bugs in the Graphviz printer.
Diffstat (limited to 'src/GF/Speech')
| -rw-r--r-- | src/GF/Speech/FiniteState.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/GF/Speech/FiniteState.hs b/src/GF/Speech/FiniteState.hs index a57328a03..f897c1425 100644 --- a/src/GF/Speech/FiniteState.hs +++ b/src/GF/Speech/FiniteState.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/09/14 18:00:19 $ +-- > CVS $Date: 2005/09/15 18:10:44 $ -- > CVS $Author: bringert $ --- > CVS $Revision: 1.10 $ +-- > CVS $Revision: 1.11 $ -- -- A simple finite state network module. ----------------------------------------------------------------------------- @@ -125,12 +125,11 @@ prFAGraphviz = Dot.prGraphviz . toGraphviz toGraphviz :: (Eq n,Show n) => FA n String String -> Dot.Graph toGraphviz (FA (Graph _ ns es) s f) = Dot.Graph Dot.Directed [] (map mkNode ns) (map mkEdge es) where mkNode (n,l) = Dot.Node (show n) attrs - where attrs = [("label",l)] + where attrs = [("label",l)] ++ if n == s then [("shape","box")] else [] ++ if n `elem` f then [("style","bold")] else [] mkEdge (x,y,l) = Dot.Edge (show x) (show y) [("label",l)] - -- -- * Graphs -- |