From aa34ffda5bf68c53e9aaa2d96f6b723c056cd80a Mon Sep 17 00:00:00 2001
From: Martin Sumner <martin.sumner@adaptip.co.uk>
Date: Thu, 3 May 2018 20:14:36 +0100
Subject: [PATCH] Crash not skip on corrupted key

---
 src/leveled_codec.erl | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/src/leveled_codec.erl b/src/leveled_codec.erl
index dc527be..109ef87 100644
--- a/src/leveled_codec.erl
+++ b/src/leveled_codec.erl
@@ -313,17 +313,12 @@ compact_inkerkvc({{SQN, ?INKT_STND, LK}, V, CrcCheck}, Strategy) ->
                                                     -> skip|retain|recalc.
 %% @doc
 %% Work out the compaction startegy for the key
-get_tagstrategy(LK, Strategy) ->
-    case LK of
-        {Tag, _, _, _} ->
-            case lists:keyfind(Tag, 1, Strategy) of
-                {Tag, TagStrat} ->
-                    TagStrat;
-                false ->
-                    leveled_log:log("IC012", [Tag, Strategy]),
-                    skip
-            end;
-        _ ->
+get_tagstrategy({Tag, _, _, _}, Strategy) ->
+    case lists:keyfind(Tag, 1, Strategy) of
+        {Tag, TagStrat} ->
+            TagStrat;
+        false ->
+            leveled_log:log("IC012", [Tag, Strategy]),
             skip
     end.