From e9a53b69ad68e531a789eff3128f7304fd411808 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 15 Apr 2020 15:24:32 -0700
Subject: Lint fixes, also delete Biz.Language

---
 Biz/Ibb/Core.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Biz/Ibb/Core.hs')

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]
     ]
-- 
cgit v1.2.3