summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNick Sima <nicksima@gmail.com>2019-02-06 12:25:26 -0800
committerBen Sima <ben@bsima.me>2019-02-06 12:29:14 -0800
commitbda95f886b075961fb7e2634d5a68e5814c70679 (patch)
tree5bf489718aa48a4a38ddb3f8e5945d514e652182
parent1b0e1147e495ae39f8652ac6e6e0152e07b0aa69 (diff)
Remove twitter link, and use twitter handle instead.
Less code and looks better.
-rw-r--r--ibb/Main.hs8
1 files changed, 1 insertions, 7 deletions
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>