position of arrows in alignment

This commit is contained in:
aarne
2008-12-16 08:59:26 +00:00
parent e478228cb5
commit 8c7aa2f5bb

View File

@@ -111,7 +111,7 @@ lin2graph ss = prelude ++ nodes ++ links
[edge i v w | (v@(_,p),_) <- lin, (w@(_,q),_) <- lin', p == q]
edge i v w =
struct i ++ ":" ++ mark v ++ " -> " ++ struct (i+1) ++ ":" ++ mark w ++ " ;"
struct i ++ ":" ++ mark v ++ ":e -> " ++ struct (i+1) ++ ":" ++ mark w ++ ":w ;"
{-
digraph{