From bdd1762130d1a6d2a9728fd167c70f6149c89000 Mon Sep 17 00:00:00 2001
From: Martin Sumner <martin.sumner@adaptip.co.uk>
Date: Tue, 30 Oct 2018 14:06:17 +0000
Subject: [PATCH] Missing use of extract_header

Spotted by ct test crossbucket_aae
---
 src/leveled_sst.erl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/leveled_sst.erl b/src/leveled_sst.erl
index aa52e28..2349ef7 100644
--- a/src/leveled_sst.erl
+++ b/src/leveled_sst.erl
@@ -1709,8 +1709,7 @@ binaryslot_trimmedlist(FullBin, StartKey, EndKey,
             {Acc, _Continue} = lists:foldl(BlockCheckFun, {[], true}, BlocksToCheck),
             {Acc, none};
         {{Header, _Blocks}, SegList} ->
-            BL = ?BLOCK_LENGTHS_LENGTH,
-            <<BlockLengths:BL/binary, BlockIdx/binary>> = Header,
+            {BlockLengths, _LMD, BlockIdx} = extract_header(Header, IdxModDate),
             PosList = find_pos(BlockIdx, SegList, [], 0),
             KVL = check_blocks(PosList,
                                 FullBin,