diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs
index b254ca37b..f619a1044 100644
--- a/test/Database/Fill.hs
+++ b/test/Database/Fill.hs
@@ -533,7 +533,7 @@ fillDb = do
     (Just now)
     now
     True
-    False
+    Nothing
   insert_ $ StudyFeatures
     maxMuster
     sdBsc
@@ -544,7 +544,7 @@ fillDb = do
     (Just now)
     now
     True
-    False
+    Nothing
   insert_ $ StudyFeatures
     tinaTester
     sdBsc
@@ -555,7 +555,7 @@ fillDb = do
     (Just now)
     now
     False
-    False
+    Nothing
   insert_ $ StudyFeatures
     tinaTester
     sdLAG
@@ -566,7 +566,7 @@ fillDb = do
     (Just now)
     now
     True
-    False
+    Nothing
   insert_ $ StudyFeatures
     tinaTester
     sdLAR
@@ -577,7 +577,7 @@ fillDb = do
     (Just now)
     now
     True
-    False
+    Nothing
   insert_ $ StudyFeatures
     tinaTester
     sdMst
@@ -588,7 +588,7 @@ fillDb = do
     (Just now)
     now
     True
-    False
+    Nothing
 
   -- FFP
   let nbrs :: [Int]