ListApply.scala

import shapeless._
import shapeless.ops.traversable._

trait ListApply[A] {
  def apply(xs: List[_]): Option[A]
}

object ListApply {
  implicit def genericListApply[A, L <: HList](gen: Generic.Aux[A, L], toHList: FromTraversable[L]) =
    new ListApply[A] {
      def apply(xs: List[_]): Option[A] = toHList(xs) map gen.from
    }

  def apply[A](xs: List[_])(implicit toA: ListApply[A]): Option[A] = toA(xs)
}