From 3445daade99e666a44261278a9a19a3342a7731c Mon Sep 17 00:00:00 2001
From: Jonathan Daugherty <cygnus@foobox.com>
Date: Sun, 17 May 2015 09:44:18 -0700
Subject: [PATCH] Rename draw function

---
 programs/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/programs/Main.hs b/programs/Main.hs
index da4c7fd..f7695fc 100644
--- a/programs/Main.hs
+++ b/programs/Main.hs
@@ -44,11 +44,11 @@ appEvent e st =
 initialState :: St
 initialState =
     St { _stEditor = editor (Name "edit") ""
-       , _stList = newList (Name "list") listDraw [0..6]
+       , _stList = newList (Name "list") listDrawElem [0..6]
        }
 
-listDraw :: Bool -> Int -> Prim
-listDraw sel i =
+listDrawElem :: Bool -> Int -> Prim
+listDrawElem sel i =
     let selAttr = white `on` blue
         p = hCentered (Txt $ "Number " <> show i)
     in if sel