diff options
Diffstat (limited to 'Com/MusicMeetsComics')
| -rw-r--r-- | Com/MusicMeetsComics/App.hs | 6 | ||||
| -rw-r--r-- | Com/MusicMeetsComics/Look/Typography.hs | 2 |
2 files changed, 4 insertions, 4 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 diff --git a/Com/MusicMeetsComics/Look/Typography.hs b/Com/MusicMeetsComics/Look/Typography.hs index 91e157a..bb9fc01 100644 --- a/Com/MusicMeetsComics/Look/Typography.hs +++ b/Com/MusicMeetsComics/Look/Typography.hs @@ -56,7 +56,7 @@ fontRoot :: Text fontRoot = Assets.cdnEdge <> "/old-assets/fonts/eurostile/Eurostile" fonts :: Css -fonts = mconcat $ mkEuro /@ +fonts = mconcat $ mkEuro </ [ ("-Reg.otf", OpenType, fontWeight normal <> fontStyle normal) , ("LTStd-Bold.otf", OpenType, thicc <> norm) , ("LTStd-Cn.otf", OpenType, slim <> norm) |