13 lines
295 B
Haskell
13 lines
295 B
Haskell
|
{-# 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")
|