salvia-1.0.0: src/Network/Salvia/Handler/Redirect.hs

{-# LANGUAGE FlexibleContexts #-}
module Network.Salvia.Handler.Redirect (hRedirect) where

import Data.Record.Label
import Network.Protocol.Http
import Network.Salvia.Interface

{- |
Redirect a client to another location by creating a `MovedPermanently` response
message with the specified `URI` in the `location' header.
-}

hRedirect :: HttpM Response m => String -> m ()
hRedirect u =
  response $
    do location =: Just u
       status   =: MovedPermanently