From 964a5c3929a94712b71771cb78a5883cddc79dc2 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Mon, 8 Feb 2021 20:35:21 +0100
Subject: [PATCH] chore: fix tests

---
 test/Database/Fill.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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]