add random comments

1 files changed, 2 insertions, 0 deletions

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 $