Support for core v0.13

Issue #4 new
Former user created an issue
#!

diff --git a/lib/gnuplot.ml b/lib/gnuplot.ml
index 2a2fd14..4c114c8 100644
--- a/lib/gnuplot.ml
+++ b/lib/gnuplot.ml
@@ -227,7 +227,7 @@ module Labels = struct
     let cmd =
       [ format_label "xlabel" t.x, "set xlabel"
       ; format_label "ylabel" t.y, "set ylabel"
-      ] |> List.filter ~f:(fun (s, _) -> s <> "")
+      ] |> List.filter ~f:(fun (s, _) -> not (String.equal s ""))
     in
     { Command.
       command = cmd |> List.map ~f:fst |> String.concat ~sep:"\n";
@@ -443,7 +443,7 @@ module Gp = struct
       ] |> List.filter_opt
     in
     List.iter commands ~f:(fun cmd ->
-      if cmd.Command.cleanup <> "" then begin
+      if not (String.equal cmd.Command.cleanup "") then begin
         if t.verbose then printf "Setting:\n%s\n%!" cmd.Command.cleanup;
         send_cmd t cmd.Command.cleanup
       end)

Comments (0)

  1. Log in to comment