Create directory for history file if directory does not exist

ocaml-community · Apr 4, 2024 · 4654b22 · 4654b22
1 parent edca64d
commit 4654b22
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/lib/uTop_main.ml b/src/lib/uTop_main.ml
@@ -53,7 +53,10 @@ let init_history () =
         return ()
     | Some fn ->
         Lwt.catch
-          (fun () -> LTerm_history.load UTop.history fn)
+          (fun () ->
+            let dn = Filename.dirname fn in
+            if not (Sys.file_exists dn) then Unix.mkdir dn 0o700;
+            LTerm_history.load UTop.history fn)
           (function
           | Unix.Unix_error (error, func, arg) ->
               Logs_lwt.err (fun m -> m "cannot load history from %S: %s: %s"