From 3ec144d33daa5b50a49e632a5ef01411002be3cc Mon Sep 17 00:00:00 2001
From: martinsumner <martin.sumner@adaptip.co.uk>
Date: Thu, 1 Dec 2016 11:31:25 +0000
Subject: [PATCH] Remove unnecessary branch

---
 src/leveled_skiplist.erl | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/src/leveled_skiplist.erl b/src/leveled_skiplist.erl
index aff4536..b9d9af4 100644
--- a/src/leveled_skiplist.erl
+++ b/src/leveled_skiplist.erl
@@ -173,16 +173,11 @@ from_list(KVL, Width, Level) ->
 
 lookup(Key, SkipList, 1) ->
     SubList = get_sublist(Key, SkipList),
-    case SubList of
-        null ->
+    case lists:keyfind(Key, 1, SubList) of
+        false ->
             none;
-        SubList -> 
-            case lists:keyfind(Key, 1, SubList) of
-                false ->
-                    none;
-                {Key, V} ->
-                    {value, V}
-            end
+        {Key, V} ->
+            {value, V}
     end;
 lookup(Key, SkipList, Level) ->
     SubList = get_sublist(Key, SkipList),
@@ -525,7 +520,7 @@ define_kv(X) ->
         {X, {active, infinity}, null}}.
 
 skiplist_roundsize_test() ->
-    KVL = lists:map(fun(X) -> define_kv(X) end, lists:seq(1, 4000)),
+    KVL = lists:map(fun(X) -> define_kv(X) end, lists:seq(1, 4096)),
     SkipList = from_list(KVL),
     lists:foreach(fun({K, V}) ->
                         ?assertMatch({value, V}, lookup(K, SkipList)) end,