textInput :: Text -> AForm Handler (Text,Maybe Text)
textInput n = (,) n <$> aopt textField (bfs n) Nothing
textInput :: Text -> AForm Handler (Text,Maybe Text)
textInput n = (,) n <$> aopt textField (bfs n) Nothing
textInput n = (,) n <$> aopt textField (bfs n) Nothing