tatus_@(Status code message) = do
  status status_
  let result
        | code < 200 || code >= 300 = "failed"
        | otherwise = "succeeded"
  logIO [i|Request #{result} - #{code} #{decodeUtf8 >>> unpack $ message}|]

setStatusAndRedirect ∷ Status → Lazy.Text → ActionM α
set
setStatusAndLog ∷ Status → ActionM ()
setStatusAndLog status_@(Status code message) = do
  status status_
  let result
        | code < 200 || code >= 300 = "failed"
        | otherwise = "succeeded"
  logIO [i|Request #{result} - #{code} #{decodeUtf8 >>> unpack $ message}|]
setStatusAndLog status_@(Status code message) = do
  status status_
  let result
        | code < 200 || code >= 300 = "failed"
        | otherwise = "succeeded"
  logIO [i|Request #{result} - #{code} #{decodeUtf8 >>> unpack $ message}|]