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

switch to GHC2024

Browse source
This commit is contained in:
rhiannon morris 2024-07-07 20:04:38 +02:00
parent 5031058bde
commit d06f749b8c
5 changed files with 8 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

5
make-pages/SinglePage.hs
View file

@ -250,9 +250,10 @@ makeButtonBar title images =
| [(_, imgs)] <- cats ->
makeButtonBar title (Uncat imgs)
| otherwise ->
makeNav "cat" $ map (uncurry makeCat) cats
makeNav "cat" $ map (uncurry makeCat) cats
where
makeNav (cls :: Text) inner = [b|@0
makeNav :: CanBuild b => Text -> b -> Builder
makeNav cls inner = [b|@0
<nav id=alts class=$cls aria-label="alternate versions">
$2.inner
$2.skipAll