diff options
Diffstat (limited to 'src/Hakyll/Alias.hs')
| -rw-r--r-- | src/Hakyll/Alias.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |