diff options
Diffstat (limited to 'Com/MusicMeetsComics/App.hs')
| -rw-r--r-- | Com/MusicMeetsComics/App.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Com/MusicMeetsComics/App.hs b/Com/MusicMeetsComics/App.hs index 7f5b47f..fa3b8e9 100644 --- a/Com/MusicMeetsComics/App.hs +++ b/Com/MusicMeetsComics/App.hs @@ -408,7 +408,7 @@ mediaInfo Nothing _ = text "" mediaInfo (Just comic) lib = div_ [ class_ "media-info" ] [ info comic lib ] appmenu :: View Action -appmenu = aside_ [ id_ "appmenu" ] $ btn /@ links +appmenu = aside_ [ id_ "appmenu" ] $ btn </ links where links = [ (discoverLink, "discover.svg", "discover") , (homeLink, "save.svg", "library") @@ -434,7 +434,7 @@ nocomics = div_ [ class_ "loading" ] [ text "error: no comics found" ] shelf :: IsMediaObject o => MisoString -> [o] -> View Action shelf title comics = div_ [ class_ "shelf" ] [ div_ [ class_ "shelf-head" ] [ text title ] - , ul_ [ class_ "shelf-body" ] $ thumbnail /@ comics + , ul_ [ class_ "shelf-body" ] $ thumbnail </ comics ] discoverFooter :: View Action @@ -654,7 +654,7 @@ chooseExperiencePage comic page model = template "choose-experience" , main_ [ id_ "app-body" ] [ h2_ [] [ text "Choose Your Musical Experience" ] , p_ [] [ text experienceBlurb ] - , ul_ [] $ li comic /@ experiences + , ul_ [] $ li comic </ experiences ] , appmenu , comicControls comic page model |