1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
module Sql = struct let insert order = () end module Postgres = struct let save order = Sql.insert order end let validate order = () let finalize order = () let run order = validate order; Postgres.save order; finalize order