From 56037cd69bf4e424a291050a0e558f8d34134f7d Mon Sep 17 00:00:00 2001 From: tauomicronmu Date: Tue, 13 Jun 2023 17:31:18 +0200 Subject: [PATCH] Make lens param actually the lens --- message-index/site.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/message-index/site.hs b/message-index/site.hs index bef57616..9f7e0ea8 100644 --- a/message-index/site.hs +++ b/message-index/site.hs @@ -82,7 +82,7 @@ main = hakyll $ do highlightField ident lens = field ident $ \item -> do let name = getName item - case lens $ itemBody item of + case view lens $ itemBody item of Nothing -> pure "" Just exampleItem -> do exampleText <- fmap itemBody $ load $ itemIdentifier exampleItem @@ -92,8 +92,8 @@ main = hakyll $ do _ -> "" pure $ T.unpack $ highlight language $ T.pack $ exampleText - beforeField = highlightField "beforeHighlighted" (view _2) - afterField = highlightField "afterHighlighted" (view _3) + beforeField = highlightField "beforeHighlighted" _2 + afterField = highlightField "afterHighlighted" _3 in [ indexlessUrlField "url", nameField, beforeField,