Create an h-card widget and display my h-card on the homepage - needs more info but it's a good start

src/Foundation.hs

@@ -217,7 +217,9 @@ instance YesodAuth App where
         case x of
             Just (Entity uid _) -> return $ Authenticated uid
             Nothing -> Authenticated <$> insert User
-                { userIdent = credsIdent creds
+                { userAvatar = Nothing
+                , userIdent = credsIdent creds
+                , userFullName = ""
                 , userPassword = Nothing
                 }
 

src/Handler/Home.hs

@@ -6,6 +6,9 @@
 module Handler.Home where
 
 import Import
+import Widget.Hcard (hcard)
 
 getHomeR :: Handler Html
-getHomeR = defaultLayout $(widgetFile "home")
+getHomeR = do
+    (Entity _ user) <- runDB . getBy404 $ UniqueUser "dani"
+    defaultLayout $(widgetFile "home")

src/Widget/Hcard.hs

@@ -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")