From 3007949ca728c48a4f68bf03741f1ebe52e4f97f Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 5 Mar 2015 15:41:14 +0100
Subject: add random comments

---
 MBox.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'MBox.hs')

diff --git a/MBox.hs b/MBox.hs
index 9d5f14f..0bd3889 100644
--- a/MBox.hs
+++ b/MBox.hs
@@ -58,6 +58,7 @@ toForest mbox =
     msgs = unpackMBox mbox
 
 
+-- TODO finde a new home for roots
 roots :: Ord a => Map a (Set a) -> Set a
 roots refs =
     Set.unions $ Map.elems $ Map.filter p refs
@@ -66,6 +67,7 @@ roots refs =
     p = Set.null . Set.intersection messageIDs
 
 
+-- TODO finde a new home for sortTree
 sortTree :: Tree Message -> Tree Message
 sortTree t =
     Tree.Node (Tree.rootLabel t) $
-- 
cgit v1.2.3