notesArea :: Resources -> Html
notesArea res =
  h1 (primHtml "Notes") +++
  thediv ! [ theclass "notesArea" ] << primHtml (dayNotes res)
notesArea :: Resources -> Html
notesArea res =
  h1 (primHtml "Notes") +++
  thediv ! [ theclass "notesArea" ] << primHtml (dayNotes res)
notesArea res =
  h1 (primHtml "Notes") +++
  thediv ! [ theclass "notesArea" ] << primHtml (dayNotes res)