1let or_fail = function Ok v -> v | Error (`Msg m) -> failwith m 2 3module Raw = Raw 4module Admin = Admin 5module User = User 6module Session = Session