This is an automated email from the git hooks/post-receive script. ecc-guest pushed a commit to branch master in repository approx.
commit 431a1fff65e35c67149440f3edcf9c69f96670c0 Author: Eric Cooper <e...@cmu.edu> Date: Mon Jun 16 20:46:58 2014 -0400 simplify code to generate index page --- config.ml | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/config.ml b/config.ml index ba704cc..f1bfc1a 100644 --- a/config.ml +++ b/config.ml @@ -89,19 +89,15 @@ let sort_config = List.sort (fun x y -> compare (fst x) (fst y)) let section str = "<tr><td colspan=\"2\"><h2>" ^ str ^ "</h2></td></tr>\n" -let repository_table items = +let rows fmt items = String.concat "" - (List.map - (fun (k, v) -> - "<tr><td><a href=\"/" ^ k ^ "\">" ^ k ^ "</a></td>\ - <td><a href=\"" ^ v ^ "\">" ^ v ^ "</a></td></tr>\n") + (List.map (fun (k, v) -> "<tr>" ^ fmt k ^ fmt v ^ "</tr>\n") (sort_config items)) -let parameter_table items = - String.concat "" - (List.map - (fun (k, v) -> "<tr><td>" ^ k ^ "</td><td>" ^ v ^ "</td></tr>\n") - (sort_config items)) +let repository_table = + rows (fun x -> "<td><a href=\"" ^ x ^ "\">" ^ x ^ "</a></td>") + +let parameter_table = rows (fun x -> "<td>" ^ x ^ "</td>") let css = "body { margin: 24pt }\n\ -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-ocaml-maint/packages/approx.git _______________________________________________ Pkg-ocaml-maint-commits mailing list Pkg-ocaml-maint-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-ocaml-maint-commits