Module Expression.Comprehension

module Block : sig ... end
type ('M, 'T) t = {
  1. blocks : ('M, 'T) Block.t list;
  2. filter : ('M, 'T) Expression.t option;
}