diff --git a/Floorplan/Model.fs b/Floorplan/Model.fs index 98a6239..6341b7d 100644 --- a/Floorplan/Model.fs +++ b/Floorplan/Model.fs @@ -112,7 +112,7 @@ let getTableById (id : int) = let getRoom (roomId: int) = select { - table "floorplan_rooms" + table "rooms" where (eq "id" roomId) } |> Database.Select |> first diff --git a/Migrations/PopulateTestData.fs b/Migrations/PopulateTestData.fs index 16d8453..89242e8 100644 --- a/Migrations/PopulateTestData.fs +++ b/Migrations/PopulateTestData.fs @@ -6,13 +6,24 @@ open System.IO let spaceButton () = (Entity.GetFirstByColumn