From 441a28d8ec9e0eb2cea5f6d8718608bee91d1781 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 4 Feb 2019 11:40:40 -0800 Subject: Fix compiler warnings --- ibb/Main.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'ibb') 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|
@@ -109,6 +108,7 @@ displayPerson person = [shamlet| Personal Website |] +homepage :: Markup homepage = [shamlet| -- cgit v1.2.3