modelForm :: Resources -> Html
modelForm res = h1 (primHtml "Model") +++
                textarea ! [ theclass "mono_textarea"
                           , name "model"
                           , rows "20"
                           , cols "80" ] << primHtml (model res)
modelForm :: Resources -> Html
modelForm res = h1 (primHtml "Model") +++
                textarea ! [ theclass "mono_textarea"
                           , name "model"
                           , rows "20"
                           , cols "80" ] << primHtml (model res)
modelForm res = h1 (primHtml "Model") +++
                textarea ! [ theclass "mono_textarea"
                           , name "model"
                           , rows "20"
                           , cols "80" ] << primHtml (model res)