tests/modules/pass_compose_func.aug

   1 module Pass_Compose_Func =
   2
   3   (* string -> regexp *)
   4   let f (x:string) = x . /[a-z]/
   5
   6   (* regexp -> lens *)
   7   let g (x:regexp) = key x
   8
   9   (* string -> lens *)
  10   let h = f ; g
  11
  12   let _ = h "a"