From 70b5e2a93037603f9f5b20c46e9ad15a95a7c097 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 20 Oct 2009 19:27:42 +0000
Subject: [PATCH] fix for multiword phrases in Malt format

---
 src/PGF/VisualizeTree.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/PGF/VisualizeTree.hs b/src/PGF/VisualizeTree.hs
index 809472da5..4919f00f7 100644
--- a/src/PGF/VisualizeTree.hs
+++ b/src/PGF/VisualizeTree.hs
@@ -139,13 +139,13 @@ dependencyTree format debug mlab ms pgf lang exp = case format of
     Just (q,l) -> (maybe 0 id (Map.lookup q nodeMap), if null l then rootlabel else l)
     _          -> (0,rootlabel)
 
-  wnodes = [[show i, unwords ws, showCId fun, pos, pos, morph, show dom, lab, unspec, unspec] | 
+  wnodes = [[show i, maltws ws, showCId fun, pos, pos, morph, show dom, lab, unspec, unspec] | 
               (i, ((fun,p),ws)) <- tail nodeWords,
               let pos = showCId $ lookValCat pgf fun,
               let morph = unspec,
               let (dom,lab) = lookDomLab p
            ]
-
+  maltws = concat . intersperse "+" . words . unwords  -- no spaces in column 2
   unspec = "_"
   rootlabel = "ROOT"