From 3a949d34da649b199235b06ab33927ad02cfdc26 Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Thu, 29 Jan 2026 15:33:24 -0600
Subject: Things are compiling nicely finally

---
 src/Hakyll/Paper.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Hakyll/Paper.hs')

diff --git a/src/Hakyll/Paper.hs b/src/Hakyll/Paper.hs
index 609f74d..06c45d0 100644
--- a/src/Hakyll/Paper.hs
+++ b/src/Hakyll/Paper.hs
@@ -27,14 +27,14 @@ authorCtxt = fold $
     [ field "name" $ pure . renderNameFML . fmap toSL . itemBody
     ]
 
-paperCtxt :: StringConv a String => FieldContext a -> Context (Paper a)
+paperCtxt :: StringConv a String => (forall b. Context b) -> Context (Paper a)
 paperCtxt fctxt = fold $
-    [ listFieldWith "authors" (_authorCtxt fctxt <> authorCtxt) $ pure . traverse authors
+    [ listFieldWith "authors" (fctxt <> authorCtxt) $ pure . traverse authors
       -- fmap pure . authors . itemBody
     , field "abstract" $ liftMaybe . fmap toSL . abstract . itemBody
     , field "title" $ pure . toSL . title . itemBody
     , field "key" $ pure . sluggedKey . itemBody
-    , status >$< (statusCtxt <> _journalCtxt fctxt)
+    , status >$< (statusCtxt <> fctxt)
     , listFieldWith "eprints" eprintCtxt $ pure . traverse eprints
     -- , eprint >$< maybeContext eprintCtxt
     , field "extra" $ \i -> case extraLink $ itemBody i of
@@ -47,7 +47,7 @@ paperCtxt fctxt = fold $
                                     _ -> fail $ "No extra for " <> k
     ]
 
-mkPaperContext :: (StringConv a String, StringConv String a) => FieldContext a -> [Paper a] -> Context b
+mkPaperContext :: (StringConv a String, StringConv String a) => (forall c. Context c) -> [Paper a] -> Context b
 mkPaperContext fctxt papers = listField "papers" (paperCtxt fctxt) $ do
     fp <- getResourceFilePath
     forM papers $ \p -> do
-- 
cgit v1.2.3