diff options
author | Hans Bolinder <[email protected]> | 2016-02-22 13:24:42 +0100 |
---|---|---|
committer | Hans Bolinder <[email protected]> | 2016-02-22 13:24:42 +0100 |
commit | b8cd565e69ee2affbfeee3a9d924265b9222edb9 (patch) | |
tree | 404043a232715984296b5550ff8620d15924a910 /lib/mnesia/src/mnesia_log.erl | |
parent | 2c370def9ddbc34efb16f5dbe8064350c140183a (diff) | |
parent | 8c5f8128fc167d67fbd5d63205f35eade4cc741f (diff) | |
download | otp-b8cd565e69ee2affbfeee3a9d924265b9222edb9.tar.gz otp-b8cd565e69ee2affbfeee3a9d924265b9222edb9.tar.bz2 otp-b8cd565e69ee2affbfeee3a9d924265b9222edb9.zip |
Merge branch 'maint'
* maint:
Fix a few dialyzer warnings
Diffstat (limited to 'lib/mnesia/src/mnesia_log.erl')
-rw-r--r-- | lib/mnesia/src/mnesia_log.erl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/mnesia/src/mnesia_log.erl b/lib/mnesia/src/mnesia_log.erl index 8b19e13ff6..36135418c8 100644 --- a/lib/mnesia/src/mnesia_log.erl +++ b/lib/mnesia/src/mnesia_log.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2014. All Rights Reserved. +%% Copyright Ericsson AB 1996-2016. All Rights Reserved. %% %% Licensed under the Apache License, Version 2.0 (the "License"); %% you may not use this file except in compliance with the License. @@ -734,7 +734,7 @@ backup_schema(B, Tabs) -> safe_apply(B, write, [_, Items]) when Items == [] -> B; safe_apply(B, What, Args) -> - Abort = fun(R) -> abort_write(B, What, Args, R) end, + Abort = abort_write_fun(B, What, Args), receive {'EXIT', Pid, R} -> Abort({'EXIT', Pid, R}) after 0 -> @@ -746,6 +746,10 @@ safe_apply(B, What, Args) -> end end. +-spec abort_write_fun(_, _, _) -> fun((_) -> no_return()). +abort_write_fun(B, What, Args) -> + fun(R) -> abort_write(B, What, Args, R) end. + abort_write(B, What, Args, Reason) -> Mod = B#backup_args.module, Opaque = B#backup_args.opaque, |