From bda95f886b075961fb7e2634d5a68e5814c70679 Mon Sep 17 00:00:00 2001
From: Nick Sima <nicksima@gmail.com>
Date: Wed, 6 Feb 2019 12:25:26 -0800
Subject: Remove twitter link, and use twitter handle instead.

Less code and looks better.
---
 ibb/Main.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'ibb/Main.hs')

diff --git a/ibb/Main.hs b/ibb/Main.hs
index c0e8b13..5d2b38c 100644
--- a/ibb/Main.hs
+++ b/ibb/Main.hs
@@ -28,7 +28,6 @@ data Person = Person
   { _name :: Text
   , _pic :: Text
   , _twitter :: Text
-  , _twitterLink :: Text
   , _website :: Text
   , _books :: [Book]
   }
@@ -44,7 +43,6 @@ allPeople =
   [ Person { _name = "Joe Rogan"
            , _pic = "https://pbs.twimg.com/profile_images/552307347851210752/vrXDcTFC_400x400.jpeg"
            , _twitter = "joerogan"
-           , _twitterLink ="https://twitter.com/joerogan"
            , _website = "http://joerogan.com"
            , _books = [ Book {_title = "Food of the Gods"
                              , _author = "Terence McKenna"
@@ -59,7 +57,6 @@ allPeople =
   , Person { _name = "Beyoncé"
            , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcTxT84sF19lxdnSiblIXAp-Y4wAigpQn8sZ2GtAerIR_ApiiEJfFQ"
            , _twitter = "Beyonce"
-           , _twitterLink = "https://twitter.com/beyonce"
            , _website = "http://beyonce.com"
            , _books = [ Book { _title = "What Will It Take To Make A Woman President?"
                             , _author = "Marianne Schnall"
@@ -69,7 +66,6 @@ allPeople =
   , Person { _name = "Barrack Obama"
            , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcQeLzftR36p0hYI-EKNa5fm7CYDuN-vyz23_R48ocqa8X1nPr6C"
            , _twitter = "BarackObama"
-           , _twitterLink = "https://twitter.com/BarackObama"
            , _website = "http://barackobama.com"
            , _books = [ Book { _title = "An American Marriage"
                              , _author = "Tayari Jones"
@@ -82,7 +78,6 @@ allPeople =
   , Person { _name = "Warren Buffet"
            , _pic = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcQQbmnUykS6zqgzaf44tsq1RAsnHe6H7fapEoSqUwAoJGSFKbAPSw"
            , _twitter = "WarrenBuffett"
-           , _twitterLink = "https://twitter.com/WarrenBuffett"
            , _website = "http://berkshirehathaway.com"
            , _books = [ Book { _title = "The Intelligent Investor"
                              , _author = "Benjamin Graham"
@@ -95,7 +90,6 @@ allPeople =
   , Person { _name = "Bill Gates"
            , _pic = "https://pbs.twimg.com/profile_images/988775660163252226/XpgonN0X_400x400.jpg"
            , _twitter = "BillGates"
-           , _twitterLink = "https://twitter.com/billgates"
            , _website = "https://www.gatesnotes.com"
            , _books = [ Book { _title = "Leonardo da Vinci"
                              , _author = "Walter Isaacson"
@@ -117,7 +111,7 @@ displayPerson person = [shamlet|
     <h4 .card-title>
       #{_name person}
     <h6>
-      <a href=#{_twitterLink person} class="fab fa-twitter">
+      <a target=_blank href="https://twitter.com/#{_twitter person}" class="fab fa-twitter">
       <a target=_blank href=#{_website person} class="fas fa-globe">
     <p .card-text>
       <ul>
-- 
cgit v1.2.3