module DredgePos.Floorplan.Router open DredgePos open DredgePos.Types open Saturn open Giraffe let floorplan = (warbler (fun ctx -> DredgePos.Floorplan.Controller.loadFloorplan (snd ctx))) let router = router { pipe_through Ajax.Router.pipeline get "/" floorplan get "" floorplan post "/mergeTables" (bindJson Controller.mergeTables) post "/transformTable" (bindJson Controller.transformTable) post "/createTable" (bindJson Controller.createTable) post "/addDecoration" (bindJson Controller.AddDecoration) post "/updateDecoration" (bindJson Controller.UpdateDecoration) post "/deleteDecoration" (bindJson Controller.DeleteDecoration) post "/deleteTable" (bindJson Controller.deleteTable) getf "/getFloorplanData/%i" Controller.getFloorplanData getf "/transferTable/%i/%i" Controller.transferTable getf "/unmergeTable/%i" Controller.unmergeTable }