listForm :: Text -> Text -> AForm Handler List
listForm category username = List
  <$> areq textField (bfs ("Name" :: Text)) Nothing
  <*> areq hiddenField "" (Just username)
  <*> areq hiddenField "" (Just category)
  <*> areq hiddenField "" (Just Nothing)
listForm :: Text -> Text -> AForm Handler List
listForm category username = List
  <$> areq textField (bfs ("Name" :: Text)) Nothing
  <*> areq hiddenField "" (Just username)
  <*> areq hiddenField "" (Just category)
  <*> areq hiddenField "" (Just Nothing)
listForm category username = List
  <$> areq textField (bfs ("Name" :: Text)) Nothing
  <*> areq hiddenField "" (Just username)
  <*> areq hiddenField "" (Just category)
  <*> areq hiddenField "" (Just Nothing)