diff options
| author | Ben Sima <ben@bsima.me> | 2020-04-15 15:24:32 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-04-15 17:19:43 -0700 |
| commit | e9a53b69ad68e531a789eff3128f7304fd411808 (patch) | |
| tree | 7c0382cb3c49458e8c989eaaa042bc37b37a9699 /Biz/Ibb/Core.hs | |
| parent | cb77d0eb623c7a398ca86a632d0ea37ac385cc3d (diff) | |
Lint fixes, also delete Biz.Language
Diffstat (limited to 'Biz/Ibb/Core.hs')
| -rw-r--r-- | Biz/Ibb/Core.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Biz/Ibb/Core.hs b/Biz/Ibb/Core.hs index 2c1fbae..007d835 100644 --- a/Biz/Ibb/Core.hs +++ b/Biz/Ibb/Core.hs @@ -83,7 +83,7 @@ data Action deriving (Show, Eq) home :: Model -> View Action -home m = see m +home = see handlers :: Model -> View Action handlers = home @@ -134,7 +134,7 @@ seePerson person = [] [ a_ [ class_ "fab fa-twitter", - href_ $ "https://twitter.com/" <> (ms $ _twitter person) + href_ $ "https://twitter.com/" <> ms (_twitter person) ] [], a_ [class_ "fas fa-globe", href_ $ ms $ _website person] [] @@ -151,7 +151,7 @@ seeBook book = [] [ a_ [ class_ "text-dark", - href_ $ "https://www.amazon.com/dp/" <> (ms $ _amznref book) + href_ $ "https://www.amazon.com/dp/" <> ms (_amznref book) ] [text $ ms $ _title book] ] |