objective categorical abstract machine language personal data server
Fix filename concatenation
+7
-5
+7
-5
pegasus/lib/util.ml
+7
-5
pegasus/lib/util.ml
···
1
1
module Constants = struct
2
+
let data_dir =
3
+
Core.Filename.to_absolute_exn Env.data_dir
4
+
~relative_to:(Core_unix.getcwd ())
5
+
2
6
let pegasus_db_location =
3
-
Filename.concat Env.data_dir "pegasus.db"
4
-
|> Format.sprintf "sqlite3://%s.db"
5
-
|> Uri.of_string
7
+
"sqlite3://" ^ Filename.concat data_dir "pegasus.db" |> Uri.of_string
6
8
7
9
let user_db_location did =
8
10
did
9
11
|> Str.global_replace (Str.regexp ":") "_"
10
-
|> Filename.concat Env.data_dir
12
+
|> (Filename.concat data_dir "store" |> Filename.concat)
11
13
|> Format.sprintf "sqlite3://%s.db"
12
14
|> Uri.of_string
13
15
14
16
let user_blobs_location did =
15
17
did
16
18
|> Str.global_replace (Str.regexp ":") "_"
17
-
|> (Filename.concat Env.data_dir "blobs" |> Filename.concat)
19
+
|> (Filename.concat data_dir "blobs" |> Filename.concat)
18
20
end
19
21
20
22
module Syntax = struct