Changed function signature of redirectTo based on code review

README.md

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

src/Giraffe/HttpHandlers.fs

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

tests/Giraffe.Tests/HttpHandlerTests.fs

@@ -1243,7 +1243,7 @@ let ``GET "/redirect" redirect to "/" `` () =
     let app = 
         GET >=> choose [ 
             route "/"         >=> text "Hello World"
-            route "/redirect" >=> redirectTo "/" false
+            route "/redirect" >=> redirectTo false "/"
             setStatusCode 404 >=> text "Not found" ]
 
     ctx.Request.Method.ReturnsForAnyArgs "GET" |> ignore
@@ -1265,7 +1265,7 @@ let ``POST "/redirect" redirect to "/" `` () =
     let app = 
         POST >=> choose [ 
             route "/"         >=> text "Hello World"
-            route "/redirect" >=> redirectTo "/" true
+            route "/redirect" >=> redirectTo true "/"
             setStatusCode 404 >=> text "Not found" ]
 
     ctx.Request.Method.ReturnsForAnyArgs "POST" |> ignore