From f64f203cd90137d4891c62c7817216e5f185f1fa Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 7 Jan 2015 05:52:25 +0100
Subject: loadSubForest/TVMessage: unloadReadSubForests

---
 TreeView.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'TreeView.hs')

diff --git a/TreeView.hs b/TreeView.hs
index 218d167..92264e7 100644
--- a/TreeView.hs
+++ b/TreeView.hs
@@ -187,6 +187,7 @@ loadSubForest = \case
     TVMessage m ->
         Right
             . unloadPartsWithFilename
+            . map unloadReadSubForests
             . concatMap subForest
             . fromMessageForest
             . findFirsts messageMatch
-- 
cgit v1.2.3