postListsR :: Text -> Handler Html
postListsR category = do
  (Entity _ user) <- requireAuth
  ((result, _), _) <- runFormPost $ renderDivs (listForm category $ userName user)
  case result of
    FormSuccess list -> do
      nid <- runDB $ insert list
      redirect (ListR nid)
    _                -> redirect $ ListsR category
postListsR :: Text -> Handler Html
postListsR category = do
  (Entity _ user) <- requireAuth
  ((result, _), _) <- runFormPost $ renderDivs (listForm category $ userName user)
  case result of
    FormSuccess list -> do
      nid <- runDB $ insert list
      redirect (ListR nid)
    _                -> redirect $ ListsR category
postListsR category = do
  (Entity _ user) <- requireAuth
  ((result, _), _) <- runFormPost $ renderDivs (listForm category $ userName user)
  case result of
    FormSuccess list -> do
      nid <- runDB $ insert list
      redirect (ListR nid)
    _                -> redirect $ ListsR category