diff --git a/test/Database.hs b/test/Database.hs
index 5a481c011..3d782af2c 100644
--- a/test/Database.hs
+++ b/test/Database.hs
@@ -56,7 +56,7 @@ main = do
         Custom.purgePool $ appConnPool foundation
         truncateDb
       DBMigrate -> db' $ return ()
-      DBFill    -> db' $ fillDb
+      DBFill    -> db'   fillDb
     (_, _, _, errs) -> do
       forM_ errs $ hPutStrLn stderr
       hPutStrLn stderr $ usageInfo "uniworxdb" argsDescr