From 3a949d34da649b199235b06ab33927ad02cfdc26 Mon Sep 17 00:00:00 2001 From: Chris Wells Date: Thu, 29 Jan 2026 15:33:24 -0600 Subject: Things are compiling nicely finally --- src/Hakyll/Alias.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Hakyll/Alias.hs') diff --git a/src/Hakyll/Alias.hs b/src/Hakyll/Alias.hs index 73beb86..129ec42 100644 --- a/src/Hakyll/Alias.hs +++ b/src/Hakyll/Alias.hs @@ -29,6 +29,7 @@ aliasCtxtFrom name toa fromx ident = functionField1 name $ \s -> do -- personCtxt :: (StringConv StrictText s, Ord (Name s), ToMarkup s) => AliasMap (Name s) (Person s) -> Context a personCtxt :: Identifier -> Context a personCtxt = aliasCtxtFrom @Name_ @Person_ "personA" (parseName . toSL) (pure . toSL . personHtml) +-- personCtxt = aliasCtxtFrom @Name_ @Person_ "personA" (parseName . toSL) (pure . toSL . (\(Person n _) -> toMarkup $ renderNameFML n)) -- personCtxtFrom :: Identifier -> Context a -- personCtxtFrom = functionField1 -- cgit v1.2.3