···

       
25
       
 
       
   zfs

     

       
26
       
 
       
   cid

     

       
27
       
 
       
   ppx_repr

     

       
28
       
-
       
   irmin-fs

     

       
0
       
 
       

     

       
0
       
 
       

     

       
29
       
 
       
   cmdliner

     

       
30
       
 
       
  )

     

       
31
       
 
       
 (tags

     

···

       
25
       
 
       
   zfs

     

       
26
       
 
       
   cid

     

       
27
       
 
       
   ppx_repr

     

       
28
       
+
       
   irmin-git

     

       
29
       
+
       
   morbig

     

       
30
       
+
       
   ppx_blob

     

       
31
       
 
       
   cmdliner

     

       
32
       
 
       
  )

     

       
33
       
 
       
 (tags

     

···

       
16
       
 
       
  "zfs"

     

       
17
       
 
       
  "cid"

     

       
18
       
 
       
  "ppx_repr"

     

       
19
       
-
       
  "irmin-fs"

     

       
0
       
 
       

     

       
0
       
 
       

     

       
20
       
 
       
  "cmdliner"

     

       
21
       
 
       
  "odoc" {with-doc}

     

       
22
       
 
       
]

     
···

       
39
       
 
       
  [ "zfs.dev"      "git+https://github.com/patricoferris/ocaml-zfs" ]

     

       
40
       
 
       
  [ "void.dev"     "git+https://github.com/quantifyearth/void" ]

     

       
41
       
 
       
  [ "irmin.dev"    "git+https://github.com/mirage/irmin#eio" ]

     

       
42
       
-
       
  [ "irmin-fs.dev" "git+https://github.com/mirage/irmin#eio" ]

     

       
0
       
 
       

     

       
0
       
 
       

     

       
43
       
 
       
]

     

···

       
16
       
 
       
  "zfs"

     

       
17
       
 
       
  "cid"

     

       
18
       
 
       
  "ppx_repr"

     

       
19
       
+
       
  "irmin-git"

     

       
20
       
+
       
  "morbig"

     

       
21
       
+
       
  "ppx_blob"

     

       
22
       
 
       
  "cmdliner"

     

       
23
       
 
       
  "odoc" {with-doc}

     

       
24
       
 
       
]

     
···

       
41
       
 
       
  [ "zfs.dev"      "git+https://github.com/patricoferris/ocaml-zfs" ]

     

       
42
       
 
       
  [ "void.dev"     "git+https://github.com/quantifyearth/void" ]

     

       
43
       
 
       
  [ "irmin.dev"    "git+https://github.com/mirage/irmin#eio" ]

     

       
44
       
+
       
  [ "ppx_irmin.dev"    "git+https://github.com/mirage/irmin#eio" ]

     

       
45
       
+
       
  [ "irmin-git.dev" "git+https://github.com/mirage/irmin#eio" ]

     

       
46
       
+
       
  [ "irmin-watcher.dev" "git+https://github.com/patricoferris/irmin-watcher#675125d9e95cd09ef0c18ab1d9d6d69a26856b9f" ]

     

       
47
       
 
       
]

     

···

       
2
       
 
       
  [ "zfs.dev"      "git+https://github.com/patricoferris/ocaml-zfs" ]

     

       
3
       
 
       
  [ "void.dev"     "git+https://github.com/quantifyearth/void" ]

     

       
4
       
 
       
  [ "irmin.dev"    "git+https://github.com/mirage/irmin#eio" ]

     

       
5
       
-
       
  [ "irmin-fs.dev" "git+https://github.com/mirage/irmin#eio" ]

     

       
0
       
 
       

     

       
0
       
 
       

     

       
6
       
 
       
]

     

···

       
2
       
 
       
  [ "zfs.dev"      "git+https://github.com/patricoferris/ocaml-zfs" ]

     

       
3
       
 
       
  [ "void.dev"     "git+https://github.com/quantifyearth/void" ]

     

       
4
       
 
       
  [ "irmin.dev"    "git+https://github.com/mirage/irmin#eio" ]

     

       
5
       
+
       
  [ "ppx_irmin.dev"    "git+https://github.com/mirage/irmin#eio" ]

     

       
6
       
+
       
  [ "irmin-git.dev" "git+https://github.com/mirage/irmin#eio" ]

     

       
7
       
+
       
  [ "irmin-watcher.dev" "git+https://github.com/patricoferris/irmin-watcher#675125d9e95cd09ef0c18ab1d9d6d69a26856b9f" ]

     

       
8
       
 
       
]

     

···

       
1
       
 
       
(library

     

       
2
       
 
       
 (name shelter)

     

       
3
       
 
       
 (public_name shelter)

     

       
4
       
-
       
 (libraries

     

       
5
       
-
       
  cmdliner

     

       
6
       
-
       
  irmin-fs.unix

     

       
7
       
-
       
  irmin-git.unix

     

       
8
       
-
       
  eio.unix

     

       
9
       
-
       
  eio

     

       
10
       
-
       
  linenoise

     

       
11
       
-
       
  void

     

       
12
       
-
       
  repr

     

       
13
       
-
       
  morbig))

     

···

       
1
       
 
       
(library

     

       
2
       
 
       
 (name shelter)

     

       
3
       
 
       
 (public_name shelter)

     

       
4
       
+
       
 (libraries cmdliner irmin-git.unix eio.unix eio linenoise void repr morbig))

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

···

       
36
       
 
       
    |> List.map Engine.action_of_command

     

       
37
       
 
       


     

       
38
       
 
       
  let main config ~stdout fs clock proc directory command_file =

     

       
39
       
-
       
    Irmin_fs.run directory @@ fun () ->

     

       
40
       
-
       
    let conf = Irmin_fs.config (Eio.Path.native_exn directory) in

     

       
41
       
 
       
    let repo = Store.Repo.v conf in

     

       
42
       
 
       
    let store = Store.main repo in

     

       
43
       
 
       
    match command_file with

     

···

       
36
       
 
       
    |> List.map Engine.action_of_command

     

       
37
       
 
       


     

       
38
       
 
       
  let main config ~stdout fs clock proc directory command_file =

     

       
39
       
+
       
    let conf = Irmin_git.config (Eio.Path.native_exn directory) in

     

       
0
       
 
       

     

       
40
       
 
       
    let repo = Store.Repo.v conf in

     

       
41
       
 
       
    let store = Store.main repo in

     

       
42
       
 
       
    match command_file with