+3 -1

lib/core/URI.ml

reviewed

··· 4 4 * SPDX-License-Identifier: GPL-3.0-or-later 5 5 *) 6 6 7 7 + open Forester_prelude 8 8 + 7 9 module Basics = struct 8 10 type t = { 9 11 scheme: string option; ··· 60 62 Format.fprintf fmt "%s" @@ Uri.pct_decode @@ Uri.to_string @@ hydrate uri 61 63 62 64 let to_string x = Uri.pct_decode @@ Uri.to_string @@ hydrate x 63 63 - let t = Repr.map Repr.string (Fun.compose dehydrate Uri.of_string) to_string 65 65 + let t = Repr.map Repr.string (Uri.of_string >>> dehydrate) to_string 64 66 let of_string_exn str = dehydrate @@ Uri.canonicalize @@ Uri.of_string str 65 67 66 68 let make ?scheme ?user ?host ?port ?path () =

+1 -3

lib/frontend/Legacy_xml_client.ml

reviewed

··· 135 135 @@ URI.display_path_string ~base:env.forest.config.url uri) 136 136 frontmatter.uri; 137 137 X.optional (X.route [] "%s") 138 138 - @@ Option.map 139 139 - (Fun.compose URI.to_string (route env.forest)) 140 140 - frontmatter.uri; 138 138 + @@ Option.map (route env.forest >>> URI.to_string) frontmatter.uri; 141 139 begin match frontmatter.title with 142 140 | None -> X.null [] 143 141 | Some _ ->

+1

lib/prelude/Fun_util.ml

reviewed

··· 6 6 7 7 let ( let@ ) = ( @@ ) 8 8 let ( @~ ) f x y = f y x 9 9 + let ( >>> ) g f = Fun.compose f g

+1 -2

lib/server/Server.ml

reviewed

··· 73 73 let content = 74 74 match Headers.parse_content_target headers with 75 75 | Some target -> 76 76 - Option.map 77 77 - (Fun.compose H.null render) 76 76 + Option.map (render >>> H.null) 78 77 (State.get_content_of_transclusion ~forest {target; href}) 79 78 | None -> 80 79 Option.map