diff options
| author | tv <tv@shackspace.de> | 2015-03-05 15:41:14 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-03-05 15:41:14 +0100 |
| commit | 3007949ca728c48a4f68bf03741f1ebe52e4f97f (patch) | |
| tree | e607fab24d6a6664d66cea937ec24fda7e323edf /MBox.hs | |
| parent | d42e50abac78352cee37df0c42b967aff9d68f7c (diff) | |
add random comments
Diffstat (limited to 'MBox.hs')
| -rw-r--r-- | MBox.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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) $ |