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