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 ++
 test5.hs | 2 ++
 2 files changed, 4 insertions(+)

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) $
diff --git a/test5.hs b/test5.hs
index 500b1c2..09892f0 100644
--- a/test5.hs
+++ b/test5.hs
@@ -309,9 +309,11 @@ keymap "\ESCq" = \q@State{..} ->
             Right result ->
                 return q { cursor = Z.fromTree $ fromSearchResults (parse s') result }
 
+-- <F1>
 keymap "\ESC[11~" = \q@State{..} ->
     return q { flashMessage = Plain $ show $ treeViewId $ Z.label cursor }
 
+-- <F2>
 keymap "\ESC[12~" = \q@State{..} ->
     return q { flashMessage =
                   Plain $
-- 
cgit v1.2.3