Display an outline as a nested table: Difference between revisions

Content deleted Content added

Inline

@@ Line 522: / Line 522: @@
     . widthLabelledTree
     . (paddedTree [] =<< treeDepth)
+    . head -- Just the first tree of any forest
-    . treeFromOutline
+    . forestFromLineIndents
+    . indentLevelsFromLines
+    . lines
 --------------------------- TEST -------------------------
@@ Line 550: / Line 553: @@
 ------------- TREE STRUCTURE FROM NESTED TEXT ------------
-treeFromOutline :: String -> Tree String
-treeFromOutline =
-  head
-    . forestFromLineIndents
-    . indentLevelsFromLines
-    . lines
 forestFromLineIndents :: [(Int, String)] -> [Tree String]