summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Radestock <matthias@rabbitmq.com>2010-08-06 12:30:15 +0100
committerMatthias Radestock <matthias@rabbitmq.com>2010-08-06 12:30:15 +0100
commit0b74a8d50dd0e0a8d023defff65080b0cb3108b6 (patch)
treef1a2922257e31e609c76e827f622e544470d0ff8 /src
parent370d8cb9e31eebfe6dde90623230bcbbc577f9ec (diff)
downloadrabbitmq-server-git-0b74a8d50dd0e0a8d023defff65080b0cb3108b6.tar.gz
tweak
Diffstat (limited to 'src')
-rw-r--r--src/rabbit_mnesia.erl30
1 files changed, 15 insertions, 15 deletions
diff --git a/src/rabbit_mnesia.erl b/src/rabbit_mnesia.erl
index b575540d3d..505dc28fe8 100644
--- a/src/rabbit_mnesia.erl
+++ b/src/rabbit_mnesia.erl
@@ -235,21 +235,21 @@ ensure_mnesia_not_running() ->
check_schema_integrity() ->
TabDefs = table_definitions(),
Tables = mnesia:system_info(tables),
- case [Failure || Tab <- table_names(),
- case lists:member(Tab, Tables) of
- false ->
- Failure = {table_missing, Tab},
- true;
- true ->
- {_, TabDef} = proplists:lookup(Tab, TabDefs),
- {_, EAttrs} = proplists:lookup(attributes, TabDef),
- Attrs = mnesia:table_info(Tab, attributes),
- Failure = {table_attributes_mismatch, Tab,
- EAttrs, Attrs},
- Attrs /= EAttrs
- end] of
- [] -> ok;
- Ps -> {error, Ps}
+ case [Error || Tab <- table_names(),
+ case lists:member(Tab, Tables) of
+ false ->
+ Error = {table_missing, Tab},
+ true;
+ true ->
+ {_, TabDef} = proplists:lookup(Tab, TabDefs),
+ {_, ExpAttrs} = proplists:lookup(attributes, TabDef),
+ Attrs = mnesia:table_info(Tab, attributes),
+ Error = {table_attributes_mismatch, Tab,
+ ExpAttrs, Attrs},
+ Attrs /= ExpAttrs
+ end] of
+ [] -> ok;
+ Errors -> {error, Errors}
end.
%% The cluster node config file contains some or all of the disk nodes