Add link to mailing list signup

1 files changed, 5 insertions, 1 deletions

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}