forked from
jonmsterling.com/ocaml-forester
ocaml
formatting
+13
-3
+13
-3
lib/frontend/Forester.ml
+13
-3
lib/frontend/Forester.ml
···
120
120
let html_content =
121
121
Pure_html.to_string @@ Html_client.render_page ~forest article
122
122
in
123
-
let debug_route = URI.with_path_components (URI.append_path_component (URI.path_components uri) "index.tree") uri in
124
-
let debug_content = Format.asprintf "%a" Types.(pp_article pp_content) article in
125
-
[xml_route, xml_content; html_route, html_content; debug_route, debug_content;]
123
+
let debug_route =
124
+
URI.with_path_components
125
+
(URI.append_path_component (URI.path_components uri) "index.tree")
126
+
uri
127
+
in
128
+
let debug_content =
129
+
Format.asprintf "%a" Types.(pp_article pp_content) article
130
+
in
131
+
[
132
+
(xml_route, xml_content);
133
+
(html_route, html_content);
134
+
(debug_route, debug_content);
135
+
]
126
136
127
137
let outputs_for_asset (asset : T.asset) =
128
138
let route = asset.uri in