Add PATCH to router and controler

SaturnFramework · Dec 28, 2017 · 35fd57d · 35fd57d
1 parent f5e992f
commit 35fd57d
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/src/Saturn/Controler.fs b/src/Saturn/Controler.fs
@@ -68,7 +68,9 @@ module Controler =
         POST [
           if state.Create.IsSome then yield route "/" (fun nxt ctx -> state.Create.Value(nxt,ctx))
         ]
-        //TODO: Add Patch
+        PATCH [
+          if state.Create.IsSome then yield route "/" (fun nxt ctx -> state.Create.Value(nxt,ctx))
+        ]
         PUT [
           if state.Update.IsSome then
             match typ with

diff --git a/src/Saturn/Router.fs b/src/Saturn/Router.fs
@@ -1,5 +1,6 @@
 namespace Saturn
 
+open Giraffe.HttpHandlers
 module Router =
 
   open Giraffe.HttpHandlers
@@ -78,6 +79,8 @@ module Router =
 
       let gets, getsf = generateRoutes RouteType.Get
       let posts, postsf = generateRoutes RouteType.Post
+      let pathces, patchesf = generateRoutes RouteType.Patch
+
       let puts, putsf = generateRoutes RouteType.Put
       let deletes, deletesf = generateRoutes RouteType.Put
 
@@ -106,6 +109,11 @@ module Router =
           yield! postsf
           yield! forwards
         ]
+        yield PATCH [
+          yield! pathces
+          yield! patchesf
+          yield! forwards
+        ]
         yield PUT [
           yield! puts
           yield! putsf