sentenceForm :: Resources -> Html
sentenceForm res =
  h1 (primHtml "Sentence to parse") +++
  textarea ! [ theclass "mono_textarea"
             , thetype "text"
             , name "sentence"
             , rows "1"
             , cols "80"] << primHtml (sentence res) +++
  input ! [ thetype "submit"
          , name "submit"
          , theclass "mybutton"
          , value "Parse" ]
sentenceForm :: Resources -> Html
sentenceForm res =
  h1 (primHtml "Sentence to parse") +++
  textarea ! [ theclass "mono_textarea"
             , thetype "text"
             , name "sentence"
             , rows "1"
             , cols "80"] << primHtml (sentence res) +++
  input ! [ thetype "submit"
          , name "submit"
          , theclass "mybutton"
          , value "Parse" ]
sentenceForm res =
  h1 (primHtml "Sentence to parse") +++
  textarea ! [ theclass "mono_textarea"
             , thetype "text"
             , name "sentence"
             , rows "1"
             , cols "80"] << primHtml (sentence res) +++
  input ! [ thetype "submit"
          , name "submit"
          , theclass "mybutton"
          , value "Parse" ]