From 9f9dcf54c3adb45012dd01dfd8137764046c968f Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 27 Mar 2020 12:07:16 -0700 Subject: Add onomatopoeitic operators It's easier to remember what operators do, and thus easier to write and read condens code, if they follow some symbolic pattern or visually represent the concept to which they map. This is in part inspired by hoon, in part by OCaml's operators. I'm not married to these operators specifically, but I think they are good so far. --- Com/MusicMeetsComics/App.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Com/MusicMeetsComics/App.hs') 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 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