fun.ml

Pipeline.(
    run ~handle_exn:Out.print_exn g opt' (
      (
        ~~~ (op ~name:"includes" Pipe.expand_include)
        @** (op ~name:"expand" Pipe.expand_pack)
        @<< (op ~name:"execute" Pipe.execute)
        @++ (po ~name:"typecheck" Pipe.typecheck)
        @++ (po ~name:"solve" Pipe.solve)
        @++ (op ~name:"print_res" Pipe.print_res)
        @|| (op fst)
        @++ _end
      ) @>> (
        ~~~ (op ~name:"print_stats" Pipe.print_stats)
        @|| _end
      )
    ))