  (_testTasksDb_tasks tasksDb)
  testTask
  (\_ -> work . unWrappedColumnar)
  wId

allTestTasks :: Connection -> IO [TestTask]
allTestTasks c =
  runBeamPostgres c $ runSelectReturningList $
    select $ all_ (_testTasksDb_tasks tasksDb)

justOneTestTask :: Connection -> IO (Maybe TestTask)
justOneTestTask c =
  runBeamPostgres c $ runSelectReturningOne $
    select $ all_ (_testTasksDb_tasks tasksDb)