atusAndRedirect status_ url = do
  logIO [i|Redirecting to #{url} with code #{status_}|]
  status status_
  redirect url

setStatusAndRedirect ∷ Status → Lazy.Text → ActionM α
setStatusAndRedirect status_ url = do
  logIO [i|Redirecting to #{url} with code #{status_}|]
  status status_
  redirect url
setStatusAndRedirect status_ url = do
  logIO [i|Redirecting to #{url} with code #{status_}|]
  status status_
  redirect url