getWithAuthenticatedUser :: Route App -> Text -> YesodExample App ()
getWithAuthenticatedUser route user = do
    userEntity <- createUser user
    authenticateAs userEntity
    get route
    statusIs 200
getWithAuthenticatedUser :: Route App -> Text -> YesodExample App ()
getWithAuthenticatedUser route user = do
    userEntity <- createUser user
    authenticateAs userEntity
    get route
    statusIs 200
getWithAuthenticatedUser route user = do
    userEntity <- createUser user
    authenticateAs userEntity
    get route
    statusIs 200