diff options
| -rw-r--r-- | ibb/Main.hs | 6 |
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} |