jackline: 2017-12-24 -> 2018-05-11

This commit is contained in:
Vincent Laporte 2018-06-24 08:27:33 +00:00
parent 26aa4c36ba
commit dbd5783791
No known key found for this signature in database
GPG Key ID: EBD582ADDDB1F81F
3 changed files with 4 additions and 37 deletions

View File

@ -3,18 +3,16 @@
assert stdenv.lib.versionAtLeast ocamlPackages.ocaml.version "4.02.2"; assert stdenv.lib.versionAtLeast ocamlPackages.ocaml.version "4.02.2";
stdenv.mkDerivation rec { stdenv.mkDerivation rec {
version = "2017-12-24"; version = "2018-05-11";
name = "jackline-${version}"; name = "jackline-${version}";
src = fetchFromGitHub { src = fetchFromGitHub {
owner = "hannesm"; owner = "hannesm";
repo = "jackline"; repo = "jackline";
rev = "8678e8a1a06e641218a31ae25150040202f89289"; rev = "bc36b1c8b80fee6baba4f91011cd01b82a06e8eb";
sha256 = "05z9kvd7gwr59ic7hnmbayhwyyqd41xxz01cvdlcgplk3z7zlwg5"; sha256 = "1xx2yx8a95m84sa1bkxi3rlx7pd39zkqwk3znj0zzz3cni6apfrz";
}; };
patches = [ ./tls-0.9.0.patch ];
buildInputs = with ocamlPackages; [ buildInputs = with ocamlPackages; [
ocaml ocamlbuild findlib topkg ppx_sexp_conv ocaml ocamlbuild findlib topkg ppx_sexp_conv
erm_xmpp tls nocrypto x509 ocaml_lwt otr astring erm_xmpp tls nocrypto x509 ocaml_lwt otr astring

View File

@ -1,29 +0,0 @@
diff --git a/cli/cli_config.ml b/cli/cli_config.ml
index 991ee77..59a0edb 100644
--- a/cli/cli_config.ml
+++ b/cli/cli_config.ml
@@ -207,7 +207,9 @@ let configure term () =
ask above "CA file: " (fun x -> x) (fun x -> if Sys.file_exists x then `Ok x else `Invalid) term >>= fun trust_anchor ->
Lwt_unix.access trust_anchor [ Unix.F_OK ; Unix.R_OK ] >>= fun () ->
X509_lwt.certs_of_pem trust_anchor >>= fun tas ->
- (match X509.Validation.valid_cas ~time:(Unix.time ()) tas with
+ let time = match Ptime.of_float_s (Unix.time ())
+ with Some time -> time | None -> assert false in
+ (match X509.Validation.valid_cas ~time tas with
| [] -> Lwt.fail (Invalid_argument "trust anchor file is empty!")
| _ -> Lwt.return (`Trust_anchor trust_anchor))
| Some fp -> Lwt.return (`Fingerprint fp) ) >>= fun authenticator ->
diff --git a/cli/cli_state.ml b/cli/cli_state.ml
index d5db502..91540c9 100644
--- a/cli/cli_state.ml
+++ b/cli/cli_state.ml
@@ -262,7 +262,8 @@ module Connect = struct
(match config.Xconfig.authenticator with
| `Trust_anchor x -> X509_lwt.authenticator (`Ca_file x)
| `Fingerprint fp ->
- let time = Unix.gettimeofday () in
+ let time = match Ptime.of_float_s (Unix.gettimeofday ())
+ with Some time -> time | None -> assert false in
let fp =
Nocrypto.Uncommon.Cs.of_hex
(String.map (function ':' -> ' ' | x -> x) fp)

View File

@ -16954,9 +16954,7 @@ with pkgs;
extra-packages = [ csound ]; extra-packages = [ csound ];
}; };
jackline = callPackage ../applications/networking/instant-messengers/jackline { jackline = callPackage ../applications/networking/instant-messengers/jackline { };
ocamlPackages = ocaml-ng.ocamlPackages_4_05;
};
slack = callPackage ../applications/networking/instant-messengers/slack { }; slack = callPackage ../applications/networking/instant-messengers/slack { };