From 1533765767e49f3db0d8e4b709de94e6db9fa596 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sun, 30 Apr 2017 13:52:13 +0200
Subject: unloadPartsWithFilename: simplify use of f

---
 TreeView.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/TreeView.hs b/TreeView.hs
index dff50e8..02cab58 100644
--- a/TreeView.hs
+++ b/TreeView.hs
@@ -206,7 +206,7 @@ unloadReadSubForests t = case rootLabel t of
 
 unloadPartsWithFilename :: Forest TreeView -> Forest TreeView
 unloadPartsWithFilename =
-    map (rewriteTree f)
+    map rewriteTree
   where
     f x@Node{..} = case rootLabel of
       TVMessagePart _ mp ->
@@ -216,10 +216,9 @@ unloadPartsWithFilename =
                   x { subForest = [] }
       _ -> x
 
-    rewriteTree :: (Tree a -> Tree a) -> Tree a -> Tree a
-    rewriteTree f x =
+    rewriteTree x =
         let x' = f x
-        in x' { subForest = map (rewriteTree f) $ subForest x' }
+        in x' { subForest = map rewriteTree $ subForest x' }
 
 
 findFirsts :: (a -> Bool) -> Forest a -> Forest a
-- 
cgit v1.2.3