Rename the h-card implementation to match up with the naming of h-feed and h-entry

src/Handler/Home.hs

@@ -6,7 +6,7 @@
 module Handler.Home where
 
 import Import
-import Widget.Hcard (hcard)
+import Widget.Card ( hCard )
 
 getHomeR :: Handler Html
 getHomeR = do

src/Widget/Card.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TemplateHaskell #-}
-module Widget.Hcard (hcard) where
+module Widget.Card ( hCard ) where
 
 import Import
 import Data.Maybe (fromJust)
@@ -28,8 +28,8 @@ prettyPgp = T.unwords . T.chunksOf 4 . pgpKeyFingerprint
 routeFromPgp :: PgpKey -> Route App
 routeFromPgp PgpKey { pgpKeyFingerprint = f } = staticR ["pgp", T.takeEnd 8 f ++ ".asc"]
 
-hcard :: Entity User -> Widget
+hCard :: Entity User -> Widget
-hcard (Entity userId user) = do
+hCard (Entity userId user) = do
     maybeAvatar <- libravatar user
     mcurrentRoute <- getCurrentRoute
     userProfiles <- handlerToWidget . runDB $ do
@@ -37,4 +37,4 @@ hcard (Entity userId user) = do
         sites <- M.fromList . map entityToTuple <$> selectList [SiteId <-. (profileSiteId <$> profiles)] []
         return $ arrangeProfiles sites profiles
     pgpKeys <- handlerToWidget . runDB $ map entityVal <$> selectList [PgpKeyUserId ==. userId] []
-    $(widgetFile "hcard")
+    $(widgetFile "mf2/h-card")

templates/home.hamlet

@@ -1 +1 @@
-^{hcard user}
+^{hCard user}