Skip to content

Commit

Permalink
fix typos: to-do, avocados, invitees
Browse files Browse the repository at this point in the history
  • Loading branch information
juhp committed Feb 13, 2011
1 parent 7a63dd7 commit 22c1536
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions seed/Chapter3/Step_3_7.hs
Expand Up @@ -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
, reminderHtml
, h1 << "# people invited:"
Expand All @@ -17,7 +17,7 @@ data ToDo = ToDo String | Done String

toDoItems :: [ToDo]
toDoItems =
[ Done "Pick up avacados"
[ Done "Pick up avocados"
, Done "Make snacks"
, ToDo "Clean house"
, ToDo "Have party"
Expand Down Expand Up @@ -63,7 +63,7 @@ toDoHtml = ulist << renderToDo toDoItems

-- NEXT
-- Add an optional partner or spouse to the invite data type.
-- Add a list of invitiees (and optional partners!) to the page.
-- Add a list of invitees (and optional partners!) to the page.

data Invite = Invite String Int

Expand Down

0 comments on commit 22c1536

Please sign in to comment.