Update examples since copyright is now a string option.

savonet · May 26, 2012 · 0d5b5fd · 0d5b5fd
1 parent 4c4deb8
commit 0d5b5fd
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/examples/amp/amp.ml b/examples/amp/amp.ml
@@ -15,7 +15,7 @@ let () =
     (Descriptor.label d)
     (Descriptor.name d)
     (Descriptor.maker d)
-    (Descriptor.copyright d);
+    (match Descriptor.copyright d with Some c -> c | None -> "");
   Printf.printf "Found %d descriptors.\n%!" (Array.length (Descriptor.descriptors p));
   Printf.printf "Found %d ports:\n%!" (Descriptor.port_count d);
   for i = 0 to Descriptor.port_count d - 1 do

diff --git a/examples/inspect/inspect.ml b/examples/inspect/inspect.ml
@@ -51,7 +51,7 @@ let print_plugin pname =
                (Descriptor.label d)
                (Descriptor.name d)
                (Descriptor.maker d)
-               (Descriptor.copyright d);
+               (match Descriptor.copyright d with Some c -> c | None -> "");
              print_descr d
           )
           descr;