ability to configure default block size

basho-labs · Feb 17, 2011 · a516abb · a516abb
1 parent ed2cf75
commit a516abb
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/luwak_file.erl b/src/luwak_file.erl
@@ -37,7 +37,10 @@ create(Riak, Name, Attributes) when is_binary(Name) ->
 %%                                   checksum of the most recent write request
 %%                                   as a property of the filehandle.
 create(Riak, Name, Properties, Attributes) when is_binary(Name) ->
-    BlockSize = proplists:get_value(block_size, Properties, ?BLOCK_DEFAULT),
+    DefaultBlockSize = app_helper:get_env(luwak,
+                                          default_block_size,
+                                          ?BLOCK_DEFAULT),
+    BlockSize = proplists:get_value(block_size, Properties, DefaultBlockSize),
     Order = proplists:get_value(tree_order, Properties, ?ORDER_DEFAULT),
     Checksumming = proplists:get_value(checksumming, Properties, false),
     if