Use Stringext.split for ocaml < 4.04

rgrinberg · Sep 20, 2018 · 79cb44e · 79cb44e
1 parent a112e50
commit 79cb44e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/opium/jbuild b/opium/jbuild
@@ -11,4 +11,5 @@
     cmdliner
     cohttp-lwt-unix
     magic-mime
-    logs))))
+    logs
+    stringext))))
diff --git a/opium/static_serve.ml b/opium/static_serve.ml
@@ -35,7 +35,7 @@ let public_serve t ~requested ~request_if_none_match ?etag_of_fname ?headers ()
       match request_if_none_match, etag_quoted with
       | Some request_etags, Some etag_quoted ->
         request_etags
-        |> String.split_on_char ','
+        |> Stringext.split ~on:','
         |> List.exists ~f:(fun request_etag ->
           String.trim request_etag = etag_quoted
         )