From e848fe5fedf181ada95b5253bdf99b88ad80e4c8 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sat, 25 May 2019 12:59:54 +0000
Subject: [PATCH] Add unique UniqueLocalMessageCreate

---
 config/models           | 1 +
 src/Vervis/Migration.hs | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/config/models b/config/models
index ac1d7e3..265b666 100644
--- a/config/models
+++ b/config/models
@@ -332,6 +332,7 @@ LocalMessage
     unlinkedParent FedURI    Maybe
 
     UniqueLocalMessage rest
+    UniqueLocalMessageCreate create
 
 RemoteMessage
     author     RemoteActorId
diff --git a/src/Vervis/Migration.hs b/src/Vervis/Migration.hs
index a7515ff..d445303 100644
--- 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))