Browse files

to-do and avocados

  • Loading branch information...
1 parent a429b1a commit 39a3a45c8d923431b2b2226bbbc9e7f3fb8dc058 @juhp juhp committed Feb 13, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 seed/Chapter2/Step_2_6.hs
View
4 seed/Chapter2/Step_2_6.hs
@@ -5,7 +5,7 @@ import Text.Html
page = thehtml <<
[ header << (thetitle << "Output")
, body <<
- [ h1 << "A to do list:"
+ [ h1 << "A to-do list:"
, thediv << toDoHtml
, h1 << "Some action:"
, thediv << comicAction
@@ -17,7 +17,7 @@ page = thehtml <<
-- Getting simpler, isn't it?
toDoItems :: [String] -- a list of strings
-toDoItems = ["Pick up avacados", "Make snacks", "Clean house", "Have party"]
+toDoItems = ["Pick up avocados", "Make snacks", "Clean house", "Have party"]
renderToDo :: [String] -> [Html]
renderToDo [] = []

0 comments on commit 39a3a45

Please sign in to comment.