Data.Tree.Extra: add setSubForest

1 files changed, 1 insertions, 5 deletions

diff --git a/src/Much/Action.hs b/src/Much/Action.hs
index 4b1d4b1..d76e503 100644
--- a/src/Much/Action.hs
+++ b/src/Much/Action.hs
@@ -5,13 +5,13 @@ module Much.Action where
 
 import Blessings.String.WCWidth
 import Data.Maybe
+import Data.Tree.Extra (setSubForest)
 import Scanner
 import Much.State
 import Much.TagUtils
 import Much.TreeSearch
 import Much.TreeView
 import Much.TreeZipperUtils
-import qualified Data.Tree as Tree
 import qualified Data.Tree.Zipper as Z
 import qualified Notmuch
 import qualified Notmuch.Message as Notmuch
@@ -216,7 +216,3 @@ topOverrun State{..} =
 botOverrun :: State -> Int
 botOverrun State{..} =
     max 0 (linearPos cursor - yoffset - (screenHeight - length headBuffer - 1))
-
-
-setSubForest :: Tree.Forest a -> Tree.Tree a -> Tree.Tree a
-setSubForest sf t = t { Tree.subForest = sf }