Add a u-uid to the h-card to ensure the h-card is considered representative

src/Widget/Hcard.hs

@@ -28,6 +28,7 @@ routeFromPgp PgpKey { pgpKeyFingerprint = f, pgpKeyHash = h } =
 hcard :: Entity User -> Widget
 hcard (Entity userId user) = do
     maybeAvatar <- liftIO $ L.avatarUrl (L.Email $ userEmail user) def { L.optSecure = True, L.optSize = L.Size 512 }
+    mcurrentRoute <- getCurrentRoute
     userProfiles <- handlerToWidget . runDB $ do
         profiles <- map entityVal <$> selectList [ProfileUserId ==. userId] []
         sites <- M.fromList . map entityToTuple <$> selectList [SiteId <-. (profileSiteId <$> profiles)] []