[Pkg-ocaml-maint-commits] [approx] 02/08: simplify code to generate index page

[Eric Cooper]

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 <ecc at 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