From 0ed23980a6dafc0352b2ef066c18167199ccf5ab Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Thu, 18 May 2017 21:24:47 +0300
Subject: [PATCH] Get rid of Mnesia transaction in get_vcard/2

---
 src/mod_vcard_mnesia.erl | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/mod_vcard_mnesia.erl b/src/mod_vcard_mnesia.erl
index 9dc3d860a..d2f4ef52d 100644
--- a/src/mod_vcard_mnesia.erl
+++ b/src/mod_vcard_mnesia.erl
@@ -62,12 +62,8 @@ is_search_supported(_ServerHost) ->
 
 get_vcard(LUser, LServer) ->
     US = {LUser, LServer},
-    F = fun () -> mnesia:read({vcard, US}) end,
-    case mnesia:transaction(F) of
-	{atomic, Rs} ->
-	    {ok, lists:map(fun (R) -> R#vcard.vcard end, Rs)};
-	{aborted, _Reason} -> error
-    end.
+    Rs = mnesia:dirty_read(vcard, US),
+    {ok, lists:map(fun (R) -> R#vcard.vcard end, Rs)}.
 
 set_vcard(LUser, LServer, VCARD, VCardSearch) ->
     US = {LUser, LServer},