From d6a3180ecdb59184773023a0ef3a7a7c82a69f75 Mon Sep 17 00:00:00 2001
From: Scott Lystig Fritchie <slfritchie@snookles.com>
Date: Wed, 14 Oct 2015 16:52:03 +0900
Subject: [PATCH] Use pattern matching instead of length() BIF

---
 src/machi_file_proxy.erl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/machi_file_proxy.erl b/src/machi_file_proxy.erl
index dccebbb..9b676cc 100644
--- a/src/machi_file_proxy.erl
+++ b/src/machi_file_proxy.erl
@@ -686,12 +686,11 @@ do_write(FHd, FHc, Filename, TaggedCsum, Offset, Size, Data, U) ->
 % @private Given an offset and a size, return `true' if a byte range has
 % <b>not</b> been written. Otherwise, return `false'.
 is_byte_range_unwritten(Offset, Size, Unwritten) ->
-    case length(Unwritten) of
-        0 ->
+    case Unwritten of
+        [] ->
             lager:critical("Unwritten byte list has 0 entries! This should never happen."),
             false;
-        1 ->
-            {Eof, infinity} = hd(Unwritten),
+        [{Eof, infinity}] ->
             Offset >= Eof;
         _ ->
             case lookup_unwritten(Offset, Size, Unwritten) of