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