objective categorical abstract machine language personal data server
Update deps
+20
-7
+15
-3
dune-project
+15
-3
dune-project
···
10
10
11
11
(license MPL-2.0)
12
12
13
+
(pin
14
+
(url "git+https://github.com/aantron/dream.git")
15
+
(package (name dream)))
16
+
17
+
(pin
18
+
(url "git+https://github.com/roddyyaga/ppx_rapper.git")
19
+
(package (name ppx_rapper)))
20
+
21
+
(pin
22
+
(url "git+https://github.com/roddyyaga/ppx_rapper.git")
23
+
(package (name ppx_rapper_lwt)))
24
+
13
25
(package
14
26
(name pegasus)
15
27
(synopsis "An atproto Personal Data Server implementation")
···
22
34
(caqti (>= 1.9.0))
23
35
(caqti-driver-sqlite3 (>= 1.9.0))
24
36
(caqti-lwt (>= 1.9.0))
25
-
(dream (>= 1.0.0~alpha5))
37
+
dream
26
38
(re (>= 1.13.2))
27
39
(safepass (>= 3.1))
28
40
(yojson (>= 3.0.0))
29
41
(lwt_ppx (>= 5.9.1))
30
42
(ppx_deriving_yojson (>= 3.9.1))
31
-
(ppx_rapper (>= 3.0.0))
32
-
(ppx_rapper_lwt (>= 3.0.0))
43
+
ppx_rapper
44
+
ppx_rapper_lwt
33
45
(alcotest :with-test)))
34
46
35
47
(package
+3
-3
pegasus.opam
+3
-3
pegasus.opam
···
14
14
"caqti" {>= "1.9.0"}
15
15
"caqti-driver-sqlite3" {>= "1.9.0"}
16
16
"caqti-lwt" {>= "1.9.0"}
17
-
"dream" {>= "1.0.0~alpha5"}
17
+
"dream"
18
18
"re" {>= "1.13.2"}
19
19
"safepass" {>= "3.1"}
20
20
"yojson" {>= "3.0.0"}
21
21
"lwt_ppx" {>= "5.9.1"}
22
22
"ppx_deriving_yojson" {>= "3.9.1"}
23
-
"ppx_rapper" {>= "3.0.0"}
24
-
"ppx_rapper_lwt" {>= "3.0.0"}
23
+
"ppx_rapper"
24
+
"ppx_rapper_lwt"
25
25
"alcotest" {with-test}
26
26
"odoc" {with-doc}
27
27
]
+1
pegasus/lib/dune
+1
pegasus/lib/dune
+1
-1
pegasus/lib/util.ml
+1
-1
pegasus/lib/util.ml
···
66
66
(* opens an sqlite connection *)
67
67
let connect_sqlite db_uri =
68
68
let open Syntax in
69
-
match%lwt Caqti_lwt.connect (Uri.of_string db_uri) with
69
+
match%lwt Caqti_lwt_unix.connect (Uri.of_string db_uri) with
70
70
| Ok c ->
71
71
let$! () =
72
72
[%rapper execute {sql| PRAGMA journal_mode=WAL; |sql} syntax_off] () c