Give a meaningful name to a zipper function in the script to split articles into paragraphs

scripts/paragraphs.hs

@@ -18,12 +18,13 @@ articleParagraphs =
   fmap (fmap (leave . linearize False . enter) . splitOn "\n\n") . Text.readFile
 
 withMeta :: ArticleRecord @ Entry -> [Text] -> [(ParagraphMeta, Text)]
-withMeta (articleRecord :@: entry) paragraphs = zipWith f [1..] paragraphs
+withMeta (articleRecord :@: entry) paragraphs =
+  zipWith numberParagraph [1..] paragraphs
   where
     prodigyMeta = ProdigyMeta
       { totalParagraphs = length paragraphs
       , Prodigy.headword = Article.headword entry }
-    f paragraph paragraphText =
+    numberParagraph paragraph paragraphText =
       (articleRecord :@: Paragraph {paragraph} :@: prodigyMeta, paragraphText)
 
 to :: FilePath -> FilePath -> ArticleRecord @ Entry -> IO [ParagraphMeta]