Add unique UniqueLocalMessageCreate

2019-05-25 12:59:54 +00:00 · 2019-05-25 12:59:54 +00:00 · e848fe5fed
commit e848fe5fed
parent 2eade80cfb
2 changed files with 3 additions and 0 deletions
--- a/config/models
+++ b/config/models
@ -332,6 +332,7 @@ LocalMessage
    unlinkedParent FedURI    Maybe

    UniqueLocalMessage rest
+    UniqueLocalMessageCreate create

 RemoteMessage
    author     RemoteActorId
--- a/src/Vervis/Migration.hs
+++ b/src/Vervis/Migration.hs
@ -472,6 +472,8 @@ changes hLocal ctx =
        )
        "create"
        "OutboxItem"
+      -- 78
+    , addUnique "LocalMessage" $ Unique "UniqueLocalMessageCreate" ["create"]
    ]

 migrateDB :: MonadIO m => Text -> HashidsContext -> ReaderT SqlBackend m (Either Text (Int, Int))