formPage :: ServerPart Response
formPage = decodeBody (defaultBodyPolicy "/tmp" 0 10000 10000) >>
           formHandler (userForm "" "")
formPage :: ServerPart Response
formPage = decodeBody (defaultBodyPolicy "/tmp" 0 10000 10000) >>
           formHandler (userForm "" "")
formPage = decodeBody (defaultBodyPolicy "/tmp" 0 10000 10000) >>
           formHandler (userForm "" "")