{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
module Main where
import Web.Scotty (ActionM, scotty, get, html)
import Text.Blaze.Html.Renderer.Text (renderHtml)
import Text.Hamlet (shamlet)
import Text.Blaze.Html (Html)
import Text.Blaze (Markup)
import Data.Monoid (mconcat)
render :: Html -> ActionM ()
render = html . renderHtml
main :: IO ()
main = scotty 3000 $
get "/" $ render influencerCards
influencerCards :: Markup
influencerCards = [shamlet|