From cb44a12c1be3141f69e9bb9cfb4ae6abe7ac68eb Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 16 Dec 2008 15:20:03 +0000
Subject: [PATCH] fixed discontinuous constituents in word alignment

---
 src/PGF/VisualizeTree.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/PGF/VisualizeTree.hs b/src/PGF/VisualizeTree.hs
index 943e79efb..4e8df64c0 100644
--- a/src/PGF/VisualizeTree.hs
+++ b/src/PGF/VisualizeTree.hs
@@ -69,7 +69,7 @@ lin2graph ss = prelude ++ nodes ++ links
   prelude = ["rankdir=LR ;", "node [shape = record] ;"]
 
   nlins :: [(Int,[((Int,String),String)])]
-  nlins = [(i, [((0,showp p),unw ws) | (p,ws) <- ws]) | 
+  nlins = [(i, [((j,showp p),unw ws) | (j,(p,ws)) <- zip [0..] ws]) | 
                                   (i,ws) <- zip [0..] (map (wlins . readPosText) ss)]
 
   unw = concat . intersperse "\\ "  -- space escape in graphviz