forest-fire-0.1.0.0: src/TreeUtils.hs

module TreeUtils where

import Data.Tree
import Types

dependencyToTree :: Dependency -> Tree String
dependencyToTree (Dependency (StackName name) deps) = Node name (map dependencyToTree deps)

postorder :: Tree a -> [a]
postorder (Node label kids) = concatMap postorder kids ++ [label]