summaryrefslogtreecommitdiff
path: root/ibb
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-02-04 11:40:40 -0800
committerBen Sima <ben@bsima.me>2019-02-04 11:40:40 -0800
commit441a28d8ec9e0eb2cea5f6d8718608bee91d1781 (patch)
treee77399d5f7870fb71adcba1a81bbd970fdba4d74 /ibb
parent0f876d257ef6877da8dd47ec149f58f32233c63e (diff)
Fix compiler warnings
Diffstat (limited to 'ibb')
-rw-r--r--ibb/Main.hs10
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>