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

import Network.Salvia.Httpd
import Network.Protocol.Http
import Network.Protocol.Uri (URI)

hRedirect :: URI -> Handler ()
hRedirect u = do
  modResponse
    $ setLocation u
    . setStatus MovedPermanently