lexiconForm :: Resources -> Html
lexiconForm res = h1 (primHtml "Lexicon") +++
                  textarea ! [ theclass "mono_textarea"
                             , name "lexicon"
                             , rows "20"
                             , cols "80" ] << primHtml (Main.lexicon res)
lexiconForm :: Resources -> Html
lexiconForm res = h1 (primHtml "Lexicon") +++
                  textarea ! [ theclass "mono_textarea"
                             , name "lexicon"
                             , rows "20"
                             , cols "80" ] << primHtml (Main.lexicon res)
lexiconForm res = h1 (primHtml "Lexicon") +++
                  textarea ! [ theclass "mono_textarea"
                             , name "lexicon"
                             , rows "20"
                             , cols "80" ] << primHtml (Main.lexicon res)