diff options
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Paper.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Hakyll/Paper.hs b/src/Hakyll/Paper.hs index 06c45d0..5cc9620 100644 --- a/src/Hakyll/Paper.hs +++ b/src/Hakyll/Paper.hs @@ -43,7 +43,7 @@ paperCtxt fctxt = fold $ let k = sluggedKey $ itemBody i ident = toFilePath $ itemIdentifier i getMatches (fromString $ ident <> "/index.*") >>= witherM (fmap (>>= parseRelativeReference) . getRoute) >>= \case - (x:_) -> pure $ show x + (x:_) -> pure $ "/" <> show x _ -> fail $ "No extra for " <> k ] @@ -106,7 +106,7 @@ eprintCtxt = fold $ ] findLocal :: (StringConv a String, StringConv String a) => Item (Paper a) -> Compiler [Eprint a] -findLocal (Item ident paper) = getMatches (getPattern potentialPdfs) >>= witherM (fmap (>>= parseRelativeReference) . getRoute) >>= pure . fmap (OtherEprint (toSL ".pdf")) +findLocal (Item ident paper) = getMatches (getPattern potentialPdfs) >>= witherM (fmap (>>= (parseRelativeReference . ("/" <>))) . getRoute) >>= pure . fmap (OtherEprint (toSL ".pdf")) where fp :: FilePath fp = toFilePath ident |