Universal scheduler, cleanup task for scheduler

src/main/scala/app/Main.scala

@@ -1,7 +1,8 @@
 package app
 
 import cats.effect._
-import cats.implicits.catsSyntaxTuple2Parallel
+import cats.implicits.catsSyntaxTuple3Parallel
+import data.DataService
 import db.{DBConnection, PostgresService}
 import fetch.{FetchService, FileFetchScheduler}
 import server.Server
@@ -17,10 +18,25 @@ object Main extends IOApp {
       fileFetchScheduler <- FileFetchScheduler.of(postgresService, fetch)
       schedulerTask = fileFetchScheduler.run.compile.drain
 
+
+//      scheduler <- fetchDMI.Scheduler.of("Grib", List(3, 27, 39, 51))
+//      simpleTask = IO.delay {
+//        val timeNow = LocalTime.now().format(DateTimeFormatter.ofPattern("HH:mm"))
+//        List(s"Task executed at $timeNow")
+//      }
+//      simpleScheduler = scheduler.scheduleTask(simpleTask).compile.drain
+
+
+      scheduler <- fetchDMI.Scheduler.of("Cleanup", List(1))
+      cleanupTask = DataService.deleteOldForecasts()
+      cleanupScheduler = scheduler.scheduleTask(cleanupTask).compile.drain
+
+
+
       server <- Server.of(postgresService, fetch)
       serverTask = server.run
 
-      exitCode <- (serverTask, schedulerTask).parMapN((_, _) => ExitCode.Success)
+      exitCode <- (serverTask, schedulerTask, cleanupScheduler).parMapN((_, _, _) => ExitCode.Success)
     } yield exitCode
   }
 }