From 68414ee8dd51a32ee19cb4418b600b6cc0de22d2 Mon Sep 17 00:00:00 2001
From: Stavros Polymenis <sp@orbitalfox.com>
Date: Wed, 19 Oct 2016 22:03:29 +0100
Subject: [PATCH] removed redundant code

---
 src/template.ml | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/src/template.ml b/src/template.ml
index 0d7da8e..3cbf560 100644
--- a/src/template.ml
+++ b/src/template.ml
@@ -48,8 +48,6 @@ let fold_header title =
   Mustache.fold ~string ~section ~escaped ~unescaped ~partial ~comment ~concat
   
 let fold_index ymd_meta_pairs =
-  let string s = s in
-  let section ~inverted name contents = "section" in
   let escaped e = match e with
     | "recent_texts_listing" ->
        (ListLabels.fold_left
@@ -58,8 +56,4 @@ let fold_index ymd_meta_pairs =
            a ^ "<li><a href=\"/text/" ^ Filename.chop_extension file ^ "\">" ^ meta.title ^ "</a></li>")
          ymd_meta_pairs) ^ "</ul>"
     | _ -> prerr_endline ("unknown tag: " ^ e); "" in
-  let unescaped u = u in
-  let partial p = p in
-  let comment c = c in
-  let concat l = String.concat "" l in
   Mustache.fold ~string ~section ~escaped ~unescaped ~partial ~comment ~concat