Permalink
Browse files

to-do and avocados

  • Loading branch information...
1 parent 8d98531 commit 85b872e4ed8d76d7f764809e9d8048b29d85a0b6 @juhp juhp committed Feb 13, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 seed/Chapter3/Step_3_4.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
]
]
@@ -14,7 +14,7 @@ page = thehtml <<
toDoItems :: [(Bool, String)] -- a list of tuples: each a Bool and String
toDoItems =
- [ (True, "Pick up avacados")
+ [ (True, "Pick up avocados")
, (True, "Make snacks")
, (False, "Clean house")
, (False, "Have party")

0 comments on commit 85b872e

Please sign in to comment.