inputAreaTemplate :: Resources -> Html
inputAreaTemplate res = cont << (lexiconForm res +++
                                 modelForm res +++
                                 sentenceForm res) where
  cont = form ! [ theclass "input"
                , action "." -- (baseDir res)
                , enctype "multipart/form-data"
                , Text.XHtml.Strict.method "POST" ]
inputAreaTemplate :: Resources -> Html
inputAreaTemplate res = cont << (lexiconForm res +++
                                 modelForm res +++
                                 sentenceForm res) where
  cont = form ! [ theclass "input"
                , action "." -- (baseDir res)
                , enctype "multipart/form-data"
                , Text.XHtml.Strict.method "POST" ]
inputAreaTemplate res = cont << (lexiconForm res +++
                                 modelForm res +++
                                 sentenceForm res) where
  cont = form ! [ theclass "input"
                , action "." -- (baseDir res)
                , enctype "multipart/form-data"
                , Text.XHtml.Strict.method "POST" ]