{-# 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")