diff options
Diffstat (limited to 'ibb/Main.hs')
| -rw-r--r-- | ibb/Main.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ibb/Main.hs b/ibb/Main.hs index bbc5776..0ed8bdf 100644 --- a/ibb/Main.hs +++ b/ibb/Main.hs @@ -3,14 +3,12 @@ module Main where -import Data.Function ((&)) import Data.Text (Text) import Web.Scotty (ActionM, scotty, get, html) import Text.Blaze.Html.Renderer.Text (renderHtml) -import Text.Hamlet (shamlet, hamlet) -import Text.Blaze.Html (Html) import Text.Blaze (Markup) -import Data.Monoid (mconcat) +import Text.Hamlet (shamlet) +import Text.Blaze.Html (Html) render :: Html -> ActionM () render = html . renderHtml @@ -33,7 +31,7 @@ data Book = Book , _link :: Text } - +allPeople :: [Person] allPeople = [ Person { _name = "Joe Rogan" , _pic = "https://pbs.twimg.com/profile_images/552307347851210752/vrXDcTFC_400x400.jpeg" @@ -98,6 +96,7 @@ allPeople = } ] +displayPerson :: Person -> Markup displayPerson person = [shamlet| <div .card .ml-3 .mb-3 style=width:22rem;> <img .card-img .img-fluid src=#{_pic person}> @@ -109,6 +108,7 @@ displayPerson person = [shamlet| <a .btn href=#{_website person}>Personal Website |] +homepage :: Markup homepage = [shamlet| <!doctype html> <head> |