diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-12-16 15:20:03 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-12-16 15:20:03 +0000 |
| commit | cb44a12c1be3141f69e9bb9cfb4ae6abe7ac68eb (patch) | |
| tree | bc28e97b6343bd93ed87090f9e8ec9dcd1bc92a5 /src | |
| parent | e32e9147034b564b2de1b0a54be714c98a0daf9b (diff) | |
fixed discontinuous constituents in word alignment
Diffstat (limited to 'src')
| -rw-r--r-- | src/PGF/VisualizeTree.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |