From c1cd00b4980e53148e284abc269d9920a7d588c3 Mon Sep 17 00:00:00 2001
From: Martin Sumner <martin.sumner@adaptip.co.uk>
Date: Thu, 22 Mar 2018 22:07:24 +0000
Subject: [PATCH] Allow ignore non-binary subkey for hash

This allows the subkey to be an integer, that will be gnored for hashing purposes
---
 src/leveled_codec.erl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/leveled_codec.erl b/src/leveled_codec.erl
index 2d7482d..f335099 100644
--- a/src/leveled_codec.erl
+++ b/src/leveled_codec.erl
@@ -97,12 +97,12 @@ segment_hash(Key) when is_binary(Key) ->
 segment_hash({?RIAK_TAG, Bucket, Key, null}) 
                                     when is_binary(Bucket), is_binary(Key) ->
     segment_hash(<<Bucket/binary, Key/binary>>);
-segment_hash({?HEAD_TAG, Bucket, Key, null})
-                                    when is_binary(Bucket), is_binary(Key) ->
-    segment_hash(<<Bucket/binary, Key/binary>>);
 segment_hash({?HEAD_TAG, Bucket, Key, SubK})
                     when is_binary(Bucket), is_binary(Key), is_binary(SubK) ->
     segment_hash(<<Bucket/binary, Key/binary, SubK/binary>>);
+segment_hash({?HEAD_TAG, Bucket, Key, _SubK})
+                                    when is_binary(Bucket), is_binary(Key) ->
+    segment_hash(<<Bucket/binary, Key/binary>>);
 segment_hash(Key) ->
     segment_hash(term_to_binary(Key)).