fixes for opam packages

_oasis

@@ -10,7 +10,6 @@ PreBuildCommand: ocaml inst.ml $bindir $datadir > install.ml
 Library email_message
   Path		  : lib/email_message
   Pack		  : true
-  Install	  : true
   FindlibName	  : email_message
   Modules	  : Bigstringable,
                     Bigstring_extended,

descr

@@ -0,0 +1 @@
+IMAP server prototype, supports IMAPv4rev1

interpreter.ml

@@ -943,7 +943,13 @@ let exec_fetch (seq:int) (sequence:sequence) (message:Mailbox.Message.t)
 
 let join_flags (flags1:mailboxFlags list) (flags2:mailboxFlags list) : (mailboxFlags list) =
   let l = List.concat [flags1;flags2] in
-  List.sort_uniq (fun a b -> if a = b then 0 else if a > b then 1 else -1) l
+  let (_,l) = List.fold_right (fun a (prev,acc) -> 
+    match prev with 
+    |None->Some a,a::acc
+    |Some prev when prev = a -> Some a,acc
+    |Some prev->Some a,a::acc) (List.sort Pervasives.compare l) (None,[])
+  in
+  l
 
 let rem_flags (flags:mailboxFlags list) (rem:mailboxFlags list) : (mailboxFlags list) =
   List.filter (fun fl -> (list_find rem (fun fl1 -> fl1 = fl)) = false) flags

lib/email_message/core_replace.ml

@@ -47,13 +47,6 @@ module Option_ =
       end
   end
 
-let blito_ ~src ?src_pos ?src_len ~dst ?dst_pos () =
-  let src_pos = Option_.value ~default:0 src_pos in
-  let default = (Bytes.length src) - src_pos in
-  let len = Option_.value ~default src_len in
-  let dst_pos = Option_.value ~default:0 dst_pos in
-    Bytes.blit_string src src_pos dst dst_pos len
-
 module Exn : sig
   type t = exn
 
@@ -127,12 +120,12 @@ open Bigarray
 module Bigstring_ : sig
   type t = (char, int8_unsigned_elt, c_layout) Array1.t 
   module To_string : sig
-    val blit : src:t -> src_pos:int -> dst:bytes -> dst_pos:int -> len:int -> unit
-    val blito : src:t -> ?src_pos:int -> ?src_len:int -> dst:bytes -> ?dst_pos:int ->
+    val blit : src:t -> src_pos:int -> dst:string -> dst_pos:int -> len:int -> unit
+    val blito : src:t -> ?src_pos:int -> ?src_len:int -> dst:string -> ?dst_pos:int ->
      unit -> unit
   end
   module From_string : sig
-    val blito : src:bytes -> ?src_pos:int -> ?src_len:int -> dst:t -> ?dst_pos:int ->
+    val blito : src:string -> ?src_pos:int -> ?src_len:int -> dst:t -> ?dst_pos:int ->
      unit -> unit
   end
   val blito : src:t -> ?src_pos:int -> ?src_len:int -> dst:t -> ?dst_pos:int ->

opam

@@ -0,0 +1,13 @@
+opam-version: "1.2"
+name: "imaplet-lwt"
+version: "0.1.0"
+maintainer: "Gregory Tsipenyuk <[email protected]>"
+authors: "Gregory Tsipenyuk <[email protected]>"
+license: "MIT"
+build: [
+  ["./configure" "--prefix=%{prefix}%"]
+  [make]
+]
+install: [make "install"]
+remove: ["ocamlfind" "remove" "imaplet-lwt"]
+depends: ["ocamlfind" {build} "lwt" "mirage" "git" {="1.2.0"} "irmin" "re2" "tls" {>="0.2.0"} "menhir"]

setup.ml

@@ -1,7 +1,7 @@
 (* setup.ml generated for the first time by OASIS v0.4.4 *)
 
 (* OASIS_START *)
-(* DO NOT EDIT (digest: 56f22cc595a4341edd29410611ae5cf0) *)
+(* DO NOT EDIT (digest: 05c32171c911d76ca062f2a4cb48a86b) *)
 (*
    Regenerated by OASIS v0.4.5
    Visit http://oasis.forge.ocamlcore.org for more information and
@@ -6959,7 +6959,7 @@ let setup_t =
        };
      oasis_fn = Some "_oasis";
      oasis_version = "0.4.5";
-     oasis_digest = Some "\031\023C^då-9Dw\004 \012m\139©";
+     oasis_digest = Some "\1527\138ïe*0\158.\156né=êÓU";
      oasis_exec = None;
      oasis_setup_args = [];
      setup_update = false

url

@@ -0,0 +1,2 @@
+archive: https://github.com/gregtatcam/imaplet-lwt/archive/v0.1.0.tar.gz
+checksum: 5f0e214ecab111b9e8c13c1db53585d8