tagless.scala

def getBlocksForResource[F[_, _]: BifunctorMonadError: Bilogger]
 (resourceID: ResourceID, timeFilter: TimeFilter)
 (implicit resourceRepo: ResourceRepo[F], blockRepo: BlockRepo[F]): F[ResourceBlockError, List[Block]] =
   (for {
     resource <- resourceRepo.get(resourceID)
     blocks   <- blockRepo.blocksForResource(resource, timeFilter)
     _ <- F.info(show"Successfully generated ${blocks.size} blocks for resource $resourceID in interval $timeFilter")
   } yield blocks).onLeft {
     case repositoryError: RepositoryError  => F.error(repositoryError.message)
     case blockError:      BlockError       => F.error(blockError.message)
     case notFound:        ResourceNotFound => F.info(notFound.message)
   }