package krb
A library for using Kerberos for both Rpc and Tcp communication
Install
Dune Dependency
Authors
Maintainers
Sources
krb-v0.16.0.tar.gz
sha256=353675621e4c5a888f2483dc1bb7281bd17ce4ed7dfd2f40142257f98db7c77d
doc/src/krb.internal/krb_info.ml.html
Source file krb_info.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
open! Core open Async type 'a t = { function_ : string ; tag_arguments : Sexp.t Lazy.t option ; tag_result : ('a -> Sexp.t) option ; tag_error : (Krb_error.t -> Sexp.t Deferred.t) option } let create ?tag_arguments ?tag_result ?tag_error function_ = { function_; tag_arguments; tag_result; tag_error } ;; let t code = let%map = match t.tag_error with | None -> return None | Some -> get_tags code >>| Option.some in match Config.verbose_errors with | false -> error_tags | true -> let = Option.map t.tag_arguments ~f:Lazy.force in (match Option.to_list argument_tags @ Option.to_list error_tags with | [] -> None | -> Some [%message (code : Krb_error.t) ~_:(tags : Sexp.t list)]) ;; let sandbox_tag = Option.some_if (Ppx_inline_test_lib.am_running && not Config.am_sandboxed) (Sexp.Atom "No KDC access - consider setting (uses_kerberos (Yes_with_principals \ (PRINCIPALS...))) in the appropriate portion of the jbuild to opt-in to \ sandboxing") ;; let = match sandbox_tag with | None -> tags' | Some sandbox_tag -> fun t code -> let%map = tags' t code >>| Option.to_list in Some (Sexp.List (sandbox_tag :: tags)) ;;
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>