Display an outline as a nested table: Difference between revisions
Content added Content deleted
Line 522:
. widthLabelledTree
. (paddedTree [] =<< treeDepth)
. head -- Just the first tree of any forest
. forestFromLineIndents▼
. indentLevelsFromLines▼
. lines▼
--------------------------- TEST -------------------------
Line 550 ⟶ 553:
------------- TREE STRUCTURE FROM NESTED TEXT ------------
▲ . forestFromLineIndents
▲ . indentLevelsFromLines
▲ . lines
forestFromLineIndents :: [(Int, String)] -> [Tree String]
|