From 7b5ddab5daf71cbf6d35505b6b6a46ab28a421e4 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Sat, 13 Mar 2021 05:30:28 +0100
Subject: [PATCH] remove unnecessary `length`

---
 make-pages/SinglePage.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs
index 3d9eea1..dc8d4d2 100644
--- a/make-pages/SinglePage.hs
+++ b/make-pages/SinglePage.hs
@@ -192,10 +192,10 @@ makeDesc (LongDesc fs) = [b|@0
 
 makeButtonBar :: Strict.Text -> [(Image, Size)] -> Builder
 makeButtonBar title images =
-  case length images of
-    0 -> throw $ NoEligibleImages title
-    1 -> ""
-    _ -> [b|@0
+  case images of
+    []  -> throw $ NoEligibleImages title
+    [_] -> ""
+    _   -> [b|@0
       <nav id=alts aria-label="alternate versions">
         <ul class="buttonbar bb-choice">
           $4.alts