swrup/drame
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update

Browse Source
This commit is contained in:
zapashcanon 2025-05-09 20:25:42 +02:00
parent de18262556
commit 26298c5996
Signed by untrusted user who does not match committer: zapashcanon
GPG Key ID: 8981C3C62D1D28F1
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/server.ml
View File

@ -30,7 +30,7 @@ struct
end
let config =
let filename = Fpath.(v Project.config_dir / "config.scfg") in
let filename = Fpath.(Project.config_dir / "config.scfg") in
match Scfg.Parse.from_file filename with
| Error (`Msg msg) -> Fmt.failwith "%s" msg
| Ok config -> config

14
src/server.mli
View File

@ -6,19 +6,19 @@ module Make (App_id : sig
val application : string
end) : sig
module Project : sig
val cache_dir : string
val cache_dir : Fpath.t
val config_dir : string
val config_dir : Fpath.t
val data_dir : string
val data_dir : Fpath.t
val data_local_dir : string
val data_local_dir : Fpath.t
val preference_dir : string
val preference_dir : Fpath.t
val runtime_dir : string
val runtime_dir : Fpath.t
val state_dir : string
val state_dir : Fpath.t
end
val config : Scfg.Types.config