src/Data/Tree/Extra.hs


1
2
3
4
5
6
7

module Data.Tree.Extra where

import Data.Tree (Forest, Tree(subForest))


setSubForest :: Forest a -> Tree a -> Tree a
setSubForest sf t = t { subForest = sf }