Better response, removing unused options.

Author: Mathieu Lecarme

src/basho_bench_driver_carbon.erl

@@ -6,18 +6,15 @@
 
 -record(state, {
         host,
-        port,
-        keys
+        port
     }).
 
 new(_Id) ->
     Host = basho_bench_config:get(carbon_server, "127.0.0.1"),
     Port = basho_bench_config:get(carbon_port, 2003),
-    Keys = basho_bench_config:get(carbon_keys, 10),
-    {ok, #state{host=Host, port=Port, keys=Keys}}.
+    {ok, #state{host=Host, port=Port}}.
 
 run(set, KeyGen, _ValueGen, State) ->
-     % io:format("SENDING: ~s\n", [Msg]),
     case gen_tcp:connect(State#state.host,
                          State#state.port,
                          [list, {packet, 0}]) of
@@ -26,10 +23,8 @@ run(set, KeyGen, _ValueGen, State) ->
             Msg = io_lib:format("pim.pam.poum.~p ~p ~p~n", [KeyGen(), (Mega * 1000 + Sec),  random:uniform(1000)]),
             gen_tcp:send(Sock, Msg),
             gen_tcp:close(Sock),
-            ok;
-        E ->
-            %error_logger:error_msg("Failed to connect to graphite: ~p", [E]),
-            E
-    end,
-    {ok, State}.
+            {ok, State};
+        Error ->
+            {error, Error, State}
+    end.