diff options
| author | Chris Wells <chris@mathematicaster.org> | 2026-01-29 15:33:24 -0600 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2026-01-29 15:33:24 -0600 |
| commit | 3a949d34da649b199235b06ab33927ad02cfdc26 (patch) | |
| tree | 3009bd8871dbb716aca93fd3bee0badba3bd717a /src/Hakyll/Paper.hs | |
| parent | 0c2ae07a2952c4041d960e1dee9ebfd8c594d597 (diff) | |
| download | main-3a949d34da649b199235b06ab33927ad02cfdc26.tar main-3a949d34da649b199235b06ab33927ad02cfdc26.tar.gz main-3a949d34da649b199235b06ab33927ad02cfdc26.tar.bz2 main-3a949d34da649b199235b06ab33927ad02cfdc26.tar.lz main-3a949d34da649b199235b06ab33927ad02cfdc26.tar.xz main-3a949d34da649b199235b06ab33927ad02cfdc26.tar.zst main-3a949d34da649b199235b06ab33927ad02cfdc26.zip | |
Things are compiling nicely finally
Diffstat (limited to 'src/Hakyll/Paper.hs')
| -rw-r--r-- | src/Hakyll/Paper.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |