software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed redundant code

Browse Source
This commit is contained in:
Stavros Polymenis 2016-10-19 22:03:29 +01:00
parent a2e0272db9
commit 68414ee8dd
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/template.ml
View File

@ -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