call copy_in correctly.

cloudant · Mar 8, 2011 · 84d3700 · 84d3700
1 parent 6f882de
commit 84d3700
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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