some fixes for guardness conditions

[helm.git] / helm / software / components / hmysql / hSqlite3.ml

diff --git a/helm/software/components/hmysql/hSqlite3.ml b/helm/software/components/hmysql/hSqlite3.ml
index b8687c5e9e20e85ce89a3f8a96c06e0508007519..efec9c2b98ba4bb21ae98c95078dfa4c55c12e7e 100644 (file)
--- a/helm/software/components/hmysql/hSqlite3.ml
+++ b/helm/software/components/hmysql/hSqlite3.ml
@@ -103,6 +103,7 @@ let quick_connect
     else
       db_name
   in
+  HExtlib.mkdir (Filename.dirname db_to_open);
   let db = Sqlite3.db_open db_to_open in
   (* attach the REGEX function *)
   Sqlite3.create_fun2 db "REGEXP"