From 180d26b507ae044b4635ff1b601ce322da79fda7 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 16 Feb 2019 20:19:57 -0800
Subject: Add link to mailing list signup

---
 ibb/Main.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'ibb')

diff --git a/ibb/Main.hs b/ibb/Main.hs
index eab5a46..04832e5 100644
--- a/ibb/Main.hs
+++ b/ibb/Main.hs
@@ -21,7 +21,7 @@ css :: ByteString -> ActionM ()
 css src = setHeader "content-type" "text/css" >> raw src
 
 main :: IO ()
-main = scotty 3000 $ do
+main = scotty 3001 $ do
     get "/" $ render homepage
     get "/custom.css" $ css stylesheet
 
@@ -70,6 +70,10 @@ homepage = [shamlet|
       <p .lead>
         #{subtitle}
 
+      <p .lead>
+        <a href="http://eepurl.com/ghBFjv">
+          Get new book recommendations from the world's influencers in your email.
+
     <div .d-flex .flex-wrap .justify-content-around>
       $forall person <- allPeople
         #{displayPerson person}
-- 
cgit v1.2.3