From 0e6e62f317fc8a509eb127744620c6cb8e32f915 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Tue, 20 Aug 2013 20:55:17 -0300
Subject: Added a couple of TODOs

---
 Screen.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Screen.hs')

diff --git a/Screen.hs b/Screen.hs
index 18030f9..8d83ed7 100644
--- a/Screen.hs
+++ b/Screen.hs
@@ -58,6 +58,7 @@ screenLoop st = do
     else return ()
          
 -- | Handle an event
+--   TODO: Handle the events in a cleaner way.  
 handleEvent :: MState -> Curses MState
 handleEvent st = loop where
   loop = do
@@ -109,6 +110,7 @@ drawIndexHelper origRow origColumn rows columns ((fp, _, msg):ts) = do
     else return ()
   
 -- | Helper function of drawMode
+--   TODO: Make helpers functions to draw header and body in a separate way.  
 drawEmailHelper st = do
   let fs = getFields $ selectedEmail st
   let cropWith xs = normalizeLen $ (fromIntegral . scrColumns $ st) - (length xs)
@@ -139,7 +141,6 @@ clearMain rows columns = do
          then drawEmptyLine $ currentRow + 1
          else return ()
   
-
 -- | Convert a String to multiple Strings, cropped by the maximum column
 --   size if necessary.
 formatBody :: String -> Int -> [String]
-- 
cgit v1.2.3