From 84d3700294cde1b7dc3d825a9190705ed20ba527 Mon Sep 17 00:00:00 2001
From: Robert Newson <robert.newson@cloudant.com>
Date: Tue, 8 Mar 2011 00:07:09 +0000
Subject: [PATCH] call copy_in correctly.

---
 src/monic_file_writer.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/monic_file_writer.erl b/src/monic_file_writer.erl
index 636d8d6..573e741 100644
--- a/src/monic_file_writer.erl
+++ b/src/monic_file_writer.erl
@@ -161,7 +161,8 @@ copy_in(Fd, Fun, Location, Remaining, Sha) ->
                 true ->                    
                     case file:pwrite(Fd, Location, Bin) of
                         ok ->
-                            copy_in(Fd, Fd, Fun, Location + Size,
+                            copy_in(Fd, Fun, Location + Size,
+                                Remaining - Size,
                                 crypto:sha_update(Sha, Bin));
                         Else ->
                             Else