diff options
| author | Ben Sima <ben@bsima.me> | 2019-02-04 11:40:40 -0800 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-02-04 11:40:40 -0800 |
| commit | 441a28d8ec9e0eb2cea5f6d8718608bee91d1781 (patch) | |
| tree | e77399d5f7870fb71adcba1a81bbd970fdba4d74 | |
| parent | 0f876d257ef6877da8dd47ec149f58f32233c63e (diff) | |
Fix compiler warnings
| -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> |