From 07ceff095a955e225778b67ec42d56ae7df151d7 Mon Sep 17 00:00:00 2001
From: UENISHI Kota <kuenishi@users.noreply.github.com>
Date: Wed, 14 Oct 2015 16:22:11 +0900
Subject: [PATCH] Fix gen_server style return value

---
 src/machi_cr_client.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/machi_cr_client.erl b/src/machi_cr_client.erl
index 1e9cac5..6da0524 100644
--- a/src/machi_cr_client.erl
+++ b/src/machi_cr_client.erl
@@ -496,7 +496,7 @@ do_write_head2(File, Offset, Chunk, Depth, STime, TO,
           when Retry == partition; Retry == bad_epoch; Retry == wedged ->
             do_write_head(File, Offset, Chunk, Depth, STime, TO, S);
         {error, written}=Err ->
-            Err;
+            {reply, Err, S};
         {error, not_written} ->
             exit({todo_should_never_happen,?MODULE,?LINE,
                   iolist_size(Chunk)})