diff options
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 |