seems to kinda work, the userspace errors missing Html_types module

2024-03-24 22:50:57 -05:00
parent f46dc86c6a
commit 3c32f068fb
7 changed files with 46 additions and 40 deletions
--- a/store.ml
+++ b/store.ml
@ -366,13 +366,7 @@ let test_pull () : (Irmin.remote * Sync.db) Lwt.t =
  Firebug.console##log (Js.string "Nav.test_pull(4)\n");
  let upstream =
    S.remote ~ctx
-      ~headers:
-        [
-          ( "Authorization",
-            "Basic \
-             Y3FjOmQ5YzJiNDkxZTcwZTMxYTc2MGNlNzBiYzQzMTAzNmM5MTMyNWY2ODM="
-          );
-        ]
+      ~headers:[ ("Authorization", F.str "Basic %s" Gitkey.key) ]
      "http://localhost:8080/console/rootstore.git"
  in
  Firebug.console##log (Js.string "Nav.test_pull(5)\n");