minor fixes

dune-project

@@ -1,3 +1,3 @@
-(lang dune 1.0)
+(lang dune 1.1)
 (name syndic)
 (version dev)

lib/dune

@@ -1,5 +1,4 @@
 (library
- (name syndic)
  (public_name syndic)
  (libraries xmlm uri ptime))
 

lib/syndic_atom.ml

@@ -491,7 +491,7 @@ type source =
   ; updated: updated option }
 
 let source ?(categories = []) ?(contributors = []) ?generator ?icon
-    ?(links = []) ?logo ?rights ?subtitle ?updated ~authors ~id ~title =
+    ?(links = []) ?logo ?rights ?subtitle ?updated ~authors ~id ~title () =
   { authors
   ; categories
   ; contributors

lib/syndic_atom.mli

@@ -271,6 +271,7 @@ val source :
   -> authors:author list
   -> id:id
   -> title:title
+  -> unit
   -> source
 
 (** A MIME type that conform to the syntax of a MIME media type, but MUST NOT

test/generate.ml

@@ -140,7 +140,7 @@ let () =
   let data = List.sort compare_entry (json_of_input ic) in
   let oc = open_out (Fpath.to_string output) in
   let ppf = Format.formatter_of_out_channel oc in
-  Fmt.pf ppf "%a@\n@\n%!" Fmt.(list ~sep:(always "@\n") pp_entry) data ;
+  Fmt.pf ppf "%a@\n@\n%!" Fmt.(list ~sep:(any "@\n") pp_entry) data ;
   Fmt.pf ppf "%a@\n" pp_test data ;
   close_out oc ;
   exit success

test/test.ml

@@ -23,7 +23,7 @@ let parse ?xmlbase = function
   | `Opml1 -> fun src -> `Opml1 (Syndic.Opml1.parse ?xmlbase src)
 
 let string_of_src = function
-  | `Filename (_, uri) -> Fmt.strf "'%s'" (Uri.to_string uri)
+  | `Filename (_, uri) -> Fmt.str "'%s'" (Uri.to_string uri)
   | `Data data ->
       let buffer = Buffer.create 16 in
       Buffer.add_string buffer (String.sub data 0 16) ;