1 files changed, 0 insertions, 117 deletions
diff --git a/ibb/Main.hs b/ibb/Main.hs
deleted file mode 100644
index 27506d8..0000000
--- a/ibb/Main.hs
+++ /dev/null
@@ -1,117 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE QuasiQuotes #-}
-
-module Main where
-
-import Control.Monad.IO.Class (liftIO)
-import Data.ByteString.Lazy (ByteString)
-import Data.Maybe (fromMaybe)
-import Data.Text.Lazy (Text)
-import Data.Text.Lazy.Encoding (encodeUtf8)
-import Influencers (Person(..), Book(..), allPeople)
-import System.Environment (lookupEnv)
-import System.Random (newStdGen)
-import System.Random.Shuffle (shuffle')
-import Text.Blaze (Markup)
-import Text.Blaze.Html (Html)
-import Text.Blaze.Html.Renderer.Text (renderHtml)
-import Text.Hamlet (shamlet)
-import Text.Lucius (lucius, renderCss)
-import Web.Scotty (ActionM, ScottyM, scotty, get, html, raw, setHeader)
-
-render :: Html -> ActionM ()
-render = html . renderHtml
-
-css :: ByteString -> ActionM ()
-css src = setHeader "content-type" "text/css" >> raw src
-
-main :: IO ()
-main = do
-    port <- read <$> fromMaybe "3000" <$> lookupEnv "PORT" :: IO Int
-    scotty port routes
-
-routes :: ScottyM ()
-routes = do
-    get "/" $ do
-        r <- liftIO newStdGen
-        let peopleList = shuffle' allPeople (length allPeople) r
-        render (homepage peopleList)
-    get "/custom.css" $ css stylesheet
-
-displayPerson :: Person -> Markup
-displayPerson person = [shamlet|
-<div .card>
-  <img .card-img .img-fluid src=#{_pic person}>
-  <div .card-body>
-    <h4 .card-title>
-      #{_name person}
-    <h6>
-      <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>
-        $forall book <- (_books person)
-          <li>
-            <a target=_blank .text-dark href="https://www.amazon.com/dp/#{_amznref book}">
-              #{_title book}
-|]
-
-title, subtitle :: Text
-title = "Influenced By Books"
-subtitle = "Influential people and the books that made them."
-
-homepage :: [Person] -> Markup
-homepage peopleList = [shamlet|
-<!doctype html>
-<head>
-  <meta charset="utf-8">
-  <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
-  <link href="https://stackpath.bootstrapcdn.com/bootstrap/4.2.1/css/bootstrap.min.css"
-        rel="stylesheet"
-        integrity="sha384-GJzZqFGwb1QTTN6wy59ffF1BuGJpLSa9DkKMp0DgiMDm4iYMj70gZWKYbI706tWS"
-        crossorigin="anonymous">
-  <link rel="stylesheet"
-        href="https://use.fontawesome.com/releases/v5.7.1/css/all.css"
-        integrity="sha384-fnmOCqbTlWIlj8LyTjo7mOUStjsKC4pOpQbqyi7RrhN7udi9RwhKkMHpvLbHG9Sr"
-        crossorigin="anonymous">
-  <link href="/custom.css" rel="stylesheet">
-  <title>#{title} | #{subtitle}
-  <script>
-    (function(f, a, t, h, o, m){
-        a[h]=a[h]||function(){
-            (a[h].q=a[h].q||[]).push(arguments)
-        };
-        o=f.createElement('script'),
-        m=f.getElementsByTagName('script')[0];
-        o.async=1; o.src=t; o.id='fathom-script';
-        m.parentNode.insertBefore(o,m)
-    })(document, window, '//stats.simatime.com/tracker.js', 'fathom');
-    fathom('set', 'siteId', 'IJATN');
-    fathom('trackPageview');
-<body>
-  <div .container.mt-5>
-    <div .jumbotron>
-      <h1 .display-4>
-        #{title}
-      <p .lead>
-        #{subtitle}
-
-      <p .lead>
-        <a href="http://eepurl.com/ghBFjv">
-          Get new book recommendations from the world's influencers in your email.
-
-    <div .card-columns>
-      $forall person <- peopleList
-        #{displayPerson person}
-|]
-
-stylesheet :: ByteString
-stylesheet = encodeUtf8 . renderCss $ [lucius|
-.jumbotron
-{ background: #fff
-; text-align: center
-}
-h1.display-4
-{ font-family: 'Times New Roman', times, serif
-}
-|] undefined