Add redirect function

Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>

lib/Web/Hikaru/Action.hs

@@ -62,6 +62,7 @@ module Web.Hikaru.Action
   , sendText
   , sendString
   , sendJSON
+  , redirect
   , setResponseFile
   , setResponseBuilder
   , setResponseBS
@@ -843,6 +844,16 @@ where
     setResponseBS (encode json)
 
 
+  -- |
+  -- Set the @Location@ header and response status to redirect the user
+  -- elsewhere.
+  --
+  redirect :: (MonadAction m) => Text -> m ()
+  redirect location = do
+    setStatus status302
+    setHeader hLocation (cs location)
+
+
   -- |
   -- Create response body using a file.
   --