Merge branch 'develop' of https://github.com/dustinmoris/Giraffe into develop

Author: dustinmoris

README.md

@@ -55,6 +55,7 @@ The old NuGet package has been unlisted and will not receive any updates any mor
     - [xml](#xml)
     - [negotiate](#negotiate)
     - [negotiateWith](#negotiatewith)
+    - [redirectTo](#redirectTo)
     - [htmlFile](#htmlfile)
     - [dotLiquid](#dotliquid)
     - [dotLiquidTemplate](#dotliquidtemplate)
@@ -622,6 +623,20 @@ let app =
     ]
 ```
 
+### redirectTo
+
+`redirectTo` uses a 302 response code to redirect the client to the specified path.
+
+#### Example:
+
+```fsharp
+let app = 
+    choose [
+        route "/" >=> redirectTo "/foo"
+        route "/foo" >=> text "Some string"
+    ]
+```
+
 ### htmlFile
 
 `htmlFile` sets or modifies the body of the `HttpResponse` with the contents of a physical html file. This http handler triggers a response to the client and other http handlers will not be able to modify the HTTP headers afterwards any more.

src/Giraffe/HttpHandlers.fs

@@ -449,4 +449,10 @@ let negotiate (responseObj : obj) =
                 |> text)
             <| ctx)
         // response object
-        responseObj
+        responseObj
+
+///Redirect to a different location with a 302 HTTP status code.
+let redirectTo route  =
+    fun (ctx:HttpHandlerContext) -> 
+        ctx.HttpContext.Response.Redirect route
+        ctx |> Some |> async.Return

tests/Giraffe.Tests/HttpHandlerTests.fs

@@ -1235,4 +1235,47 @@ let ``Warbler function should execute inner function each time`` () =
         |> Async.RunSynchronously
         |> (fun res -> getBody res.Value)
 
-    Assert.False(result3.Equals result4)
+    Assert.False(result3.Equals result4)
+
+[<Fact>]
+let ``GET "/redirect" redirect to "/" `` () =
+    let ctx, hctx = initNewContext()
+    let app = 
+        GET >=> choose [ 
+            route "/"    >=> text "Hello World"
+            route "/redirect" >=> redirectTo "/"
+            setStatusCode 404 >=> text "Not found" ]
+
+    ctx.Request.Method.ReturnsForAnyArgs "GET" |> ignore
+    ctx.Request.Path.ReturnsForAnyArgs (PathString("/redirect")) |> ignore
+
+    let result = 
+        hctx
+        |> app
+        |> Async.RunSynchronously
+    
+    match result with
+    | None     -> assertFail "It was expected that the request would be redirected" 
+    | Some ctx -> ctx.HttpContext.Response.Received().Redirect("/")
+
+
+[<Fact>]
+let ``POST "/redirect" redirect to "/" `` () =
+    let ctx, hctx = initNewContext()
+    let app = 
+        POST >=> choose [ 
+            route "/"    >=> text "Hello World"
+            route "/redirect" >=> redirectTo "/"
+            setStatusCode 404 >=> text "Not found" ]
+
+    ctx.Request.Method.ReturnsForAnyArgs "POST" |> ignore
+    ctx.Request.Path.ReturnsForAnyArgs (PathString("/redirect")) |> ignore
+
+    let result = 
+        hctx
+        |> app
+        |> Async.RunSynchronously
+    
+    match result with
+    | None     -> assertFail "It was expected that the request would be redirected" 
+    | Some ctx -> ctx.HttpContext.Response.Received().Redirect("/")