Extended redirectTo to accept a boolean flag to distinguish between 301 and 302 redirects.

Author: dustinmoris

README.md

@@ -796,15 +796,16 @@ let app =
 
 ### redirectTo
 
-`redirectTo` uses a 302 response code to redirect the client to the specified path.
+`redirectTo` uses a 302 or 301 (when permanent) HTTP response code to redirect the client to the specified location. It takes in two parameters, the location to redirect to and a boolean flag denoting whether the redirect should be permanent or not.
 
 #### Example:
 
 ```fsharp
 let app = 
     choose [
-        route "/" >=> redirectTo "/foo"
-        route "/foo" >=> text "Some string"
+        route "/"        >=> redirectTo "/foo" false
+        route "/example" >=> redirectTo "http://example.org" true
+        route "/foo"     >=> text "Some string"
     ]
 ```
 

src/Giraffe/Giraffe.fsproj

@@ -2,7 +2,7 @@
 
   <PropertyGroup>
     <AssemblyName>Giraffe</AssemblyName>
-    <VersionPrefix>0.1.0-alpha013</VersionPrefix>
+    <VersionPrefix>0.1.0-alpha014</VersionPrefix>
     <Description>A native functional ASP.NET Core web framework for F# developers.</Description>
     <Copyright>Copyright 2017 Dustin Moris Gorski</Copyright>
     <NeutralLanguage>en-GB</NeutralLanguage>

src/Giraffe/HttpHandlers.fs

@@ -451,8 +451,8 @@ let negotiate (responseObj : obj) =
         // response object
         responseObj
 
-///Redirect to a different location with a 302 HTTP status code.
-let redirectTo route  =
+///Redirects to a different location with a 302 or 301 (when permanent) HTTP status code.
+let redirectTo (location : string) (permanent : bool)  =
     fun (ctx:HttpHandlerContext) -> 
-        ctx.HttpContext.Response.Redirect route
-        ctx |> Some |> async.Return
+        ctx.HttpContext.Response.Redirect(location, permanent)
+        ctx |> Some |> async.Return

tests/Giraffe.Tests/HttpHandlerTests.fs

@@ -1242,8 +1242,8 @@ let ``GET "/redirect" redirect to "/" `` () =
     let ctx, hctx = initNewContext()
     let app = 
         GET >=> choose [ 
-            route "/"    >=> text "Hello World"
-            route "/redirect" >=> redirectTo "/"
+            route "/"         >=> text "Hello World"
+            route "/redirect" >=> redirectTo "/" false
             setStatusCode 404 >=> text "Not found" ]
 
     ctx.Request.Method.ReturnsForAnyArgs "GET" |> ignore
@@ -1256,16 +1256,16 @@ let ``GET "/redirect" redirect to "/" `` () =
 
     match result with
     | None     -> assertFail "It was expected that the request would be redirected" 
-    | Some ctx -> ctx.HttpContext.Response.Received().Redirect("/")
+    | Some ctx -> ctx.HttpContext.Response.Received().Redirect("/", false)
 
 
 [<Fact>]
 let ``POST "/redirect" redirect to "/" `` () =
     let ctx, hctx = initNewContext()
     let app = 
         POST >=> choose [ 
-            route "/"    >=> text "Hello World"
-            route "/redirect" >=> redirectTo "/"
+            route "/"         >=> text "Hello World"
+            route "/redirect" >=> redirectTo "/" true
             setStatusCode 404 >=> text "Not found" ]
 
     ctx.Request.Method.ReturnsForAnyArgs "POST" |> ignore
@@ -1278,4 +1278,4 @@ let ``POST "/redirect" redirect to "/" `` () =
 
     match result with
     | None     -> assertFail "It was expected that the request would be redirected" 
-    | Some ctx -> ctx.HttpContext.Response.Received().Redirect("/")
+    | Some ctx -> ctx.HttpContext.Response.Received().Redirect("/", true)