longTextInput :: Text -> AForm Handler (Text,Maybe Text)
longTextInput n = (,) n . fmap unTextarea <$> aopt textareaField (bfs n) Nothing
longTextInput :: Text -> AForm Handler (Text,Maybe Text)
longTextInput n = (,) n . fmap unTextarea <$> aopt textareaField (bfs n) Nothing
longTextInput n = (,) n . fmap unTextarea <$> aopt textareaField (bfs n) Nothing