diff --git a/config/models b/config/models index 0303dc8..563fbdf 100644 --- a/config/models +++ b/config/models @@ -367,6 +367,14 @@ LocalTicket UniqueLocalTicketDiscussion discuss UniqueLocalTicketFollowers followers +TicketProjectLocal + ticket TicketId + project ProjectId + accept OutboxItemId + + UniqueTicketProjectLocal ticket + UniqueTicketProjectLocalAccept accept + TicketAuthorLocal ticket LocalTicketId author PersonId diff --git a/migrations/2020_02_07_tpl.model b/migrations/2020_02_07_tpl.model new file mode 100644 index 0000000..0fcc385 --- /dev/null +++ b/migrations/2020_02_07_tpl.model @@ -0,0 +1,7 @@ +TicketProjectLocal + ticket TicketId + project ProjectId + accept OutboxItemId + + UniqueTicketProjectLocal ticket + UniqueTicketProjectLocalAccept accept diff --git a/migrations/2020_02_07_tpl_mig.model b/migrations/2020_02_07_tpl_mig.model new file mode 100644 index 0000000..911e9fe --- /dev/null +++ b/migrations/2020_02_07_tpl_mig.model @@ -0,0 +1,26 @@ +OutboxItem + +Project + +Ticket + project ProjectId + number Int Maybe + created UTCTime + title Text -- HTML + source Text -- Pandoc Markdown + description Text -- HTML + assignee Int64 Maybe + status Text + closed UTCTime + closer Int64 Maybe + accept OutboxItemId + + UniqueTicketAccept accept + +TicketProjectLocal + ticket TicketId + project ProjectId + accept OutboxItemId + + UniqueTicketProjectLocal ticket + UniqueTicketProjectLocalAccept accept diff --git a/src/Vervis/Migration.hs b/src/Vervis/Migration.hs index 1f9be59..db0b61a 100644 --- a/src/Vervis/Migration.hs +++ b/src/Vervis/Migration.hs @@ -1325,6 +1325,17 @@ changes hLocal ctx = "UniqueTicketAuthorLocal" -- 199 , renameField "TicketAuthorLocal" "ticketNew" "ticket" + -- 200 + , addEntities model_2020_02_07 + -- 201 + , unchecked $ lift $ do + ts <- selectList ([] :: [Filter Ticket201]) [] + let makeTPL (Entity tid t) = TicketProjectLocal201 + { ticketProjectLocal201Ticket = tid + , ticketProjectLocal201Project = ticket201Project t + , ticketProjectLocal201Accept = ticket201Accept t + } + insertMany_ $ map makeTPL ts ] migrateDB diff --git a/src/Vervis/Migration/Model.hs b/src/Vervis/Migration/Model.hs index 5f9d36d..81b9d14 100644 --- a/src/Vervis/Migration/Model.hs +++ b/src/Vervis/Migration/Model.hs @@ -155,6 +155,10 @@ module Vervis.Migration.Model , TicketAuthorLocal194 , TicketAuthorLocal194Generic (..) , Discussion194Generic (..) + , model_2020_02_07 + , Ticket201 + , Ticket201Generic (..) + , TicketProjectLocal201Generic (..) ) where @@ -304,3 +308,9 @@ makeEntitiesMigration "189" $(modelFile "migrations/2020_02_05_mig.model") makeEntitiesMigration "194" $(modelFile "migrations/2020_02_06_tal_point_to_lt.model") + +model_2020_02_07 :: [Entity SqlBackend] +model_2020_02_07 = $(schema "2020_02_07_tpl") + +makeEntitiesMigration "201" + $(modelFile "migrations/2020_02_07_tpl_mig.model")