From 693c92e8dddf6295599ad3e530572e9ff57cb0a5 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Thu, 14 Oct 2010 14:41:45 +0200
Subject: added error message

---
 server/dispatcher.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'server/dispatcher.erl')

diff --git a/server/dispatcher.erl b/server/dispatcher.erl
index 9b4c61b..77e4ab9 100644
--- a/server/dispatcher.erl
+++ b/server/dispatcher.erl
@@ -34,8 +34,8 @@ handle({login, {Node, User, Password}}, Dict) ->
 	    case client:start(Node) of
 		{ok, Pid} ->
 		    {{ok, {logged_in, Pid}}, Dict};
-		_ ->
-		    {{error, unable_to_login}, Dict}
+		Why ->
+		    {{error, {unable_to_login, Why}}, Dict}
 	    end;
 	_ ->
 	    {{error, user_or_password_invalid}, Dict}
-- 
cgit v1.2.3