getAsdfApplicationR :: UserId -> HouseId -> RoomId -> Handler Html
getAsdfApplicationR uid hid rid = do
    (_, user) <- requireAuthPair
    ((_, widget), enctype) <- runFormPost form
    defaultLayout $ do
        $(widgetFile "asdfapplication")