diff options
| -rw-r--r-- | src/rabbit_upgrade.erl | 11 | ||||
| -rw-r--r-- | src/rabbit_upgrade_functions.erl | 10 |
2 files changed, 20 insertions, 1 deletions
diff --git a/src/rabbit_upgrade.erl b/src/rabbit_upgrade.erl index 20ef8766dc..9ae9077559 100644 --- a/src/rabbit_upgrade.erl +++ b/src/rabbit_upgrade.erl @@ -30,6 +30,15 @@ %% ------------------------------------------------------------------- +-ifdef(use_specs). + +-spec(maybe_upgrade/1 :: (file:filename()) -> 'ok'). +-spec(write_version/1 :: (file:filename()) -> 'ok'). + +-endif. + +%% ------------------------------------------------------------------- + %% Try to upgrade the schema. If no information on the existing schema could %% be found, do nothing. rabbit_mnesia:check_schema_integrity() will catch the %% problem. @@ -48,7 +57,7 @@ maybe_upgrade(Dir) -> [warn("Data store has had future upgrade ~w applied." ++ " Will not upgrade.~n", [U]) || U <- Unknown] end, - digraph:delete(G), + true = digraph:delete(G), ok; {error, enoent} -> ok diff --git a/src/rabbit_upgrade_functions.erl b/src/rabbit_upgrade_functions.erl index c53187e231..75e4cf88ea 100644 --- a/src/rabbit_upgrade_functions.erl +++ b/src/rabbit_upgrade_functions.erl @@ -28,6 +28,16 @@ -rabbit_upgrade({test_remove_column, [test_add_column]}). -rabbit_upgrade({remove_user_scope, []}). +%% ------------------------------------------------------------------- + +-ifdef(use_specs). + +-spec(remove_user_scope/0 :: () -> 'ok'). +-spec(test_add_column/0 :: () -> 'ok'). +-spec(test_remove_column/0 :: () -> 'ok'). + +-endif. + %%-------------------------------------------------------------------- %% TODO this is just a hack, when branch bug23319 is merged this should use |