diff options
Diffstat (limited to 'ibb/Main.hs')
| -rw-r--r-- | ibb/Main.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/ibb/Main.hs b/ibb/Main.hs index 77a7d0b..5937b96 100644 --- a/ibb/Main.hs +++ b/ibb/Main.hs @@ -28,7 +28,7 @@ data Person = Person data Book = Book { _title :: Text , _author :: Text - , _link :: Text + , _amznref :: Text } allPeople :: [Person] @@ -39,11 +39,11 @@ allPeople = , _website = "http://joerogan.com" , _books = [ Book {_title = "Food of the Gods" , _author = "Terence McKenna" - , _link = "https://www.amazon.com/Food-Gods-Original-Knowledge-Evolution/dp/0553371304" + , _amznref = "0553371304" } , Book { _title = "The War of Art" , _author ="Steven Pressfield" - , _link ="https://www.amazon.com/dp/B007A4SDCG/ref=dp-kindle-redirect?_encoding=UTF8&btkr=1" + , _amznref ="B007A4SDCG" } ] } @@ -53,7 +53,7 @@ allPeople = , _website = "http://beyonce.com" , _books = [ Book { _title = "What Will It Take To Make A Woman President?" , _author = "Marianne Schnall" - , _link = "https://www.amazon.com/dp/B00E257Y7G/ref=dp-kindle-redirect?_encoding=UTF8&btkr="} + , _amznref = "B00E257Y7G"} ] } , Person { _name = "Barrack Obama" @@ -62,10 +62,10 @@ allPeople = , _website = "http://barackobama.com" , _books = [ Book { _title = "An American Marriage" , _author = "Tayari Jones" - , _link = "https://www.amazon.com/American-Marriage-Novel-Oprahs-Selection-ebook/dp/B01NCUXEFR"} + , _amznref = "B01NCUXEFR"} , Book { _title = "Americanah" , _author = "Chimamanda Ngozi Adichie" - , _link = "https://www.amazon.com/dp/B00A9ET4MC/ref=dp-kindle-redirect?_encoding=UTF8&btkr=1"} + , _amznref = "B00A9ET4MC"} ] } , Person { _name = "Warren Buffet" @@ -74,10 +74,10 @@ allPeople = , _website = "http://berkshirehathaway.com" , _books = [ Book { _title = "The Intelligent Investor" , _author = "Benjamin Graham" - , _link = "https://www.amazon.com/dp/B000FC12C8/ref=dp-kindle-redirect?_encoding=UTF8&btkr=1"} + , _amznref = "B000FC12C8"} , Book { _title = "Security Analysis" , _author = "Benjamin Graham" - , _link = "https://www.amazon.com/Security-Analysis-Foreword-Buffett-Editions-ebook/dp/B0037JO5J8"} + , _amznref = "B0037JO5J8"} ] } , Person { _name = "Bill Gates" @@ -86,11 +86,11 @@ allPeople = , _website = "https://www.gatesnotes.com" , _books = [ Book { _title = "Leonardo da Vinci" , _author = "Walter Isaacson" - , _link = "https://www.amazon.com/Leonardo-Vinci-Walter-Isaacson/dp/1501139169/ref=sr_1_1_sspa?s=digital-text&ie=UTF8&qid=1549043782&sr=1-1-spons&keywords=leonardo+da+vinci+by+walter+isaacson&psc=1" + , _amznref = "1501139169" } , Book { _title = "Educated" , _author = "Tara Wetsover" - , _link = "https://www.amazon.com/Educated-Memoir-Tara-Westover-ebook/dp/B072BLVM83/ref=sr_1_1?ie=UTF8&qid=1549044230&sr=8-1&keywords=education+tara+westover" + , _amznref = "B072BLVM83" } ] } @@ -103,7 +103,7 @@ displayPerson person = [shamlet| <h4>#{_name person} <ul> $forall book <- (_books person) - <li><a href=#{_link book} class="text-dark">#{_title book}</a> + <li><a .text-dark href="https://www.amazon.com/dp/#{_amznref book}">#{_title book}</a> <div .card-footer> <a .btn href=#{_website person}>Personal Website |] |