package irmin-git
Git backend for Irmin
Install
Dune Dependency
Authors
Maintainers
Sources
irmin-3.11.0.tbz
sha256=09996fbcc2c43e117a9bd8e9028c635e81cccb264d5e02d425ab8b06bbacdbdb
sha512=0391a6bf7b94a1edd50a3a8df9e58961739fa78d7d689d61f56bc87144483bad2ee539df595c33d9d52c29b3458da5dddf3a73b5eb85e49c4667c26d2cd46be1
doc/src/irmin-git.unix/xgit.ml.html
Source file xgit.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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91
(* * Copyright (c) 2013-2022 Thomas Gazagnaire <thomas@gazagnaire.org> * * Permission to use, copy, modify, and distribute this software for any * purpose with or without fee is hereby granted, provided that the above * copyright notice and this permission notice appear in all copies. * * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. *) open Lwt.Syntax include Xgit_intf let src = Logs.Src.create "git.unix" ~doc:"logs git's unix events" module Log = (val Logs.src_log src : Logs.LOG) let remote ?ctx ?headers uri = let+ ctx = match ctx with | Some x -> Lwt.return x | None -> Git_unix.ctx (Happy_eyeballs_lwt.create ()) in let ( ! ) f a b = f b a in let headers = Option.map Cohttp.Header.to_list headers in match Smart_git.Endpoint.of_string uri with | Ok edn -> let edn = Option.fold ~none:edn ~some:(!Smart_git.Endpoint.with_headers_if_http edn) headers in (ctx, edn) | Error (`Msg err) -> Fmt.invalid_arg "remote: %s" err module Maker (G : Irmin_git.G) = struct module G = G type endpoint = Mimic.ctx * Smart_git.Endpoint.t module Maker = struct module S = Irmin_git.Maker (G) (Git_unix.Sync (G)) module KV = Irmin_git.KV (G) (Git_unix.Sync (G)) module Ref = Irmin_git.Ref (G) (Git_unix.Sync (G)) end module Make (S : Irmin_git.Schema.S with type Hash.t = G.hash and type Node.t = G.Value.Tree.t and type Commit.t = G.Value.Commit.t) = struct include Maker.S.Make (S) let remote ?ctx ?headers uri = let+ e = remote ?ctx ?headers uri in E e end module KV (C : Irmin.Contents.S) = struct include Maker.KV.Make (C) let remote ?ctx ?headers uri = let+ e = remote ?ctx ?headers uri in E e end module Ref (C : Irmin.Contents.S) = struct include Maker.Ref.Make (C) let remote ?ctx ?headers uri = let+ e = remote ?ctx ?headers uri in E e end end module FS = struct include Maker (Git_unix.Store) module G = Git_unix.Store end module Mem = struct include Maker (Irmin_git.Mem) module G = Irmin_git.Mem end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>