Separated models, controllers and routers

Reservations/Model.fs

@@ -0,0 +1,20 @@
+module DredgePos.Reservations.Model
+
+open DredgeFramework
+open Dapper.FSharp
+open DredgePos
+open Types
+
+let updateReservation (reservation: reservation) =
+    update{
+        table "reservations"
+        set reservation
+        where(eq "id" reservation.id)
+    } |> db.Update |> ignore
+    reservation
+
+let DeleteReservation (tableId: int) =
+    delete {
+        table "reservations"
+        where (eq "floorplan_table_id" tableId)
+    } |> db.Delete |> ignore