getListsR :: Text -> Handler Html
getListsR category = do
  (Entity _ user) <- requireAuth
  getLists category (userName user) False False
getListsR :: Text -> Handler Html
getListsR category = do
  (Entity _ user) <- requireAuth
  getLists category (userName user) False False
getListsR category = do
  (Entity _ user) <- requireAuth
  getLists category (userName user) False False