module Network.Salvia.Handlers.Redirect (hRedirect) where

import Data.Record.Label
import Network.Protocol.Http
import Network.Protocol.Uri (URI)
import Network.Salvia.Httpd

hRedirect :: URI -> Handler ()
hRedirect u =
  enterM response $ do
    setM location (Just u)
    setM status MovedPermanently