2023-05-13 18:02:46 +02:00
|
|
|
exception Any of string
|
|
|
|
|
2023-05-12 20:04:04 +02:00
|
|
|
let fmt = Printf.sprintf
|
2023-05-13 18:00:57 +02:00
|
|
|
|
2023-05-13 19:58:48 +02:00
|
|
|
type context = { session_id : string }
|
|
|
|
|
2023-05-13 18:00:57 +02:00
|
|
|
let load_dotenv =
|
|
|
|
(* Load variables *)
|
|
|
|
let path = "config/.env" in
|
|
|
|
if Sys.file_exists path then Dotenv.export ~path ()
|
|
|
|
;;
|