From 465e1f5ee16633d861c32f00c6024d32da839ae5 Mon Sep 17 00:00:00 2001
From: Evgeny Khramtsov <ekhramtsov@process-one.net>
Date: Wed, 31 Jul 2019 18:55:43 +0300
Subject: [PATCH] Fix db_type validation

---
 src/gen_mod.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gen_mod.erl b/src/gen_mod.erl
index 4306ab78e..1d46908c0 100644
--- a/src/gen_mod.erl
+++ b/src/gen_mod.erl
@@ -535,7 +535,7 @@ get_defaults(Host, Module, Opts) ->
      lists:filtermap(
        fun({Opt, T1}) when Opt == db_type; Opt == ram_db_type ->
 	       T2 = proplists:get_value(Opt, Opts, T1),
-	       DBMod = db_mod(Opt, T2, Module),
+	       DBMod = list_to_atom(atom_to_list(Module) ++ "_" ++ atom_to_list(T2)),
 	       case code:ensure_loaded(DBMod) of
 		   {module, _} ->
 		       case erlang:function_exported(DBMod, mod_options, 1) of