Create an h-card widget and display my h-card on the homepage - needs more info but it's a good start
This commit is contained in:
parent
5eccafa9c2
commit
006264e77f
6 changed files with 27 additions and 2 deletions
12
src/Widget/Hcard.hs
Normal file
12
src/Widget/Hcard.hs
Normal file
|
@ -0,0 +1,12 @@
|
|||
{-# LANGUAGE NoImplicitPrelude #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
module Widget.Hcard (hcard) where
|
||||
|
||||
import Import
|
||||
|
||||
img :: Text -> Route App
|
||||
img file = StaticR . flip StaticRoute [] $ ["img", file]
|
||||
|
||||
hcard :: User -> Widget
|
||||
hcard user = $(widgetFile "hcard")
|
Loading…
Add table
Add a link
Reference in a new issue