[commit: packages/containers] cleaned_bugfix394, master, merge-doc-target, merge-fixes-5.9, merge-restrict-fix-5.8, revert-408-bugfix_394: Corrected drawTree to render multi-line String values in a palatable manner. (10e41ec)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/containers

On branches: cleaned_bugfix394,master,merge-doc-target,merge-fixes-5.9,merge-restrict-fix-5.8,revert-408-bugfix_394
Link       : http://git.haskell.org/packages/containers.git/commitdiff/10e41ecce2bb55a491dee31356b41acac1e2a4db

>---------------------------------------------------------------

commit 10e41ecce2bb55a491dee31356b41acac1e2a4db
Author: recursion-ninja <gitub at recursion.ninja>
Date:   Thu Jun 9 19:39:19 2016 -0400

    Corrected drawTree to render multi-line String values in a palatable manner.


>---------------------------------------------------------------

10e41ecce2bb55a491dee31356b41acac1e2a4db
 Data/Tree.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/Tree.hs b/Data/Tree.hs
index c35d0ed..f4cf2e9 100644
--- a/Data/Tree.hs
+++ b/Data/Tree.hs
@@ -134,7 +134,7 @@ drawForest :: Forest String -> String
 drawForest  = unlines . map drawTree
 
 draw :: Tree String -> [String]
-draw (Node x ts0) = x : drawSubTrees ts0
+draw (Node x ts0) = lines x ++ drawSubTrees ts0
   where
     drawSubTrees [] = []
     drawSubTrees [t] =