diff --git a/src/Data/Tree/View.hs b/src/Data/Tree/View.hs --- a/src/Data/Tree/View.hs +++ b/src/Data/Tree/View.hs @@ -2,6 +2,7 @@ ( showTree , drawTree , NodeInfo (..) + , showTreeHtml , htmlTree ) where @@ -63,7 +64,7 @@ data NodeInfo = NodeInfo { nodeName :: String -- ^ Node name (to be displayed in the HTML tree view) , nodeInfo :: String -- ^ Additional information (to be displayed when hovering the mouse over - -- the node). This field may contain line breaks + -- the node). This field may contain line breaks. } htmlNode :: (NodeInfo, Int) -> String @@ -84,12 +85,12 @@ = [htmlNode n ++ ""] ++ appLast (concat (indentChildren (map showTreeHtml' ns))) "" -showTreeHtml :: Tree (NodeInfo, Int) -> String -showTreeHtml tree = unlines $ lines template1 ++ showTreeHtml' tree ++ lines template2 +showTreeHtml :: Tree NodeInfo -> String +showTreeHtml tree = unlines $ lines template1 ++ showTreeHtml' (enumTree tree) ++ lines template2 -- | Convert a 'Tree' to HTML with foldable nodes htmlTree :: FilePath -> Tree NodeInfo -> IO () -htmlTree file = writeFile file . showTreeHtml . enumTree +htmlTree file = writeFile file . showTreeHtml template1 = "\n\ diff --git a/tree-view.cabal b/tree-view.cabal --- a/tree-view.cabal +++ b/tree-view.cabal @@ -1,5 +1,5 @@ name: tree-view -version: 0.1 +version: 0.2 synopsis: Render trees as foldable HTML and Unicode art description: Render trees as foldable HTML and Unicode art .