From 6a66ca90b19a0ab6ce50682bc26e3b9da6bdbc78 Mon Sep 17 00:00:00 2001
From: Feng <ery.lee@gmail.com>
Date: Tue, 13 Oct 2015 21:04:15 +0800
Subject: [PATCH] concat

---
 src/emqttd_dist.erl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/emqttd_dist.erl b/src/emqttd_dist.erl
index 13acedda4..25e977660 100644
--- a/src/emqttd_dist.erl
+++ b/src/emqttd_dist.erl
@@ -27,6 +27,8 @@
 
 -module(emqttd_dist).
 
+-import(lists, [concat/1]).
+
 -export([parse_node/1]).
 
 parse_node(Name) when is_list(Name) ->
@@ -40,10 +42,10 @@ parse_node(Name) when is_list(Name) ->
 with_domain(Name) ->
     case net_kernel:longnames() of
     true ->
-        Name ++ "@" ++ inet_db:gethostname() ++
-             "." ++ inet_db:res_option(domain);
+        concat([Name, "@", inet_db:gethostname(),
+                  ".", inet_db:res_option(domain)]);
     false ->
-        Name ++ "@" ++ inet_db:gethostname();
+        concat([Name, "@", inet_db:gethostname()]);
     _ ->
         Name
     end.