Merge pull request #8 from maiste/feature/list-drivers

Allow listing drivers available
tmattio · Oct 21, 2022 · de6dc1e · de6dc1e
2 parents f42ac8f + 8847d29
commit de6dc1e
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 0 deletions.
diff --git a/CHANGES.md b/CHANGES.md
@@ -1,3 +1,7 @@
+# Unreleased
+
+- Support driver listing (#8, @maiste)
+
 # 0.3.0 - 2022-10-11
 
 - Support partial migrations (#4, @maiste)

diff --git a/lib/omigrate/driver.ml b/lib/omigrate/driver.ml
@@ -69,3 +69,4 @@ let load_from_uri s =
   | Some scheme -> load scheme
 
 let register scheme (module T : S) = Hashtbl.add drivers scheme (module T : S)
+let list () = Hashtbl.to_seq_keys drivers |> List.of_seq
diff --git a/lib/omigrate/omigrate.ml b/lib/omigrate/omigrate.ml
@@ -112,5 +112,6 @@ module Driver : sig
   val load : string -> ((module Driver.S), Error.t) Result.t
   val load_from_uri : string -> ((module Driver.S), Error.t) Result.t
   val register : string -> (module Driver.S) -> unit
+  val list : unit -> string list
 end =
   Driver