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

remove unnecessary length

Browse source
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 :: Strict.Text -> [(Image, Size)] -> Builder
makeButtonBar title images = makeButtonBar title images =
case length images of case images of
0 -> throw $ NoEligibleImages title [] -> throw $ NoEligibleImages title
1 -> "" [_] -> ""
_ -> [b|@0 _ -> [b|@0
<nav id=alts aria-label="alternate versions"> <nav id=alts aria-label="alternate versions">
<ul class="buttonbar bb-choice"> <ul class="buttonbar bb-choice">
$4.alts $4.alts