Drop unused function in Meta

2017-08-25 20:15:06 +01:00 · 2017-08-25 20:15:06 +01:00 · e2b750a3bb
commit e2b750a3bb
parent 43a52f549b
1 changed files with 0 additions and 5 deletions
--- a/src/core/meta.ml
+++ b/src/core/meta.ml
@ -184,11 +184,6 @@ let to_string (meta as m) =
  let d field value = match value with
    | Some d -> field ^ ": " ^ Date.rfc_string value ^ "\n" | None -> ""
  in
-  let ss field values =
-    if List.length values > 0
-    then field ^ ": " ^ String.concat ", " values ^ "\n"
-    else ""
-  in
  let rows =
    [ s "title" m.title;
      a m.author;