From e5608d2d5bf5349f33d83dbd2f54af84442fd93d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 27 Nov 2019 16:22:08 +0100
Subject: [PATCH] fix: uniworxdb

---
 test/Database.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Database.hs b/test/Database.hs
index 1ab81bb3b..e037be9a6 100755
--- a/test/Database.hs
+++ b/test/Database.hs
@@ -83,7 +83,7 @@ fillDb = do
   AppSettings{ appUserDefaults = UserDefaultConf{..}, .. } <- getsYesod $ view appSettings
   now <- liftIO getCurrentTime
   let
-    insert' :: PersistRecordBackend r (YesodPersistBackend UniWorX) => r -> YesodDB UniWorX (Key r)
+    insert' :: (PersistRecordBackend r (YesodPersistBackend UniWorX), AtLeastOneUniqueKey r) => r -> YesodDB UniWorX (Key r)
     insert' = fmap (either entityKey id) . insertBy
     summer2017 = TermIdentifier 2017 Summer
     winter2017 = TermIdentifier 2017 Winter