rhi
/
gallery
1
0
Fork 0
Code Issues 5 Pull Requests 1 Releases Wiki Activity

remove unnecessary `length`

This commit is contained in:
Rhiannon Morris 2021-03-13 05:30:28 +01:00
parent 1ce4b92423
commit 7b5ddab5da
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
make-pages/SinglePage.hs
View File

@ -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