1 (* The presenter's page façade. Each feature's pages live in their own module; 2 this re-exports them under the stable [Pages] interface the web tier binds 3 to. See [pages.mli] for the public surface. *) 4 5 type page = Page_kit.page 6 7 let problem = Pages_error.problem 8 let error_page = Pages_error.error_page 9 let login = Pages_auth.login 10 let register = Pages_auth.register 11 let choose_routine = Pages_routine.choose_routine 12 let home = Pages_routine.home 13 let workout_in_progress = Pages_routine.workout_in_progress 14 let routine = Pages_routine.routine 15 let workout = Pages_workout.workout 16 let feedback_factors = Pages_logbook.feedback_factors 17 let logbook = Pages_logbook.logbook 18 let app_feedback = Pages_app_feedback.app_feedback 19 let profile = Pages_profile.profile 20 let settings = Pages_settings.settings 21 let import_review = Pages_import.import_review 22