Commit 4e33bc2f authored by Nicolas Lenz's avatar Nicolas Lenz ❄️
Browse files

Make index.html link meta root-relative

parent c21e8bb0

src/Load.hs

+1 −1
Original line number Diff line number Diff line
@@ -24,7 +24,7 @@ load Config{..} = Nebelhorn 
    <*> uncurry linkIntoMeta <$$> prependPath configFolderArticle

        <$$> readFolder configFolderArticle

    <*> uncurry linkIntoMeta <$$> readFolder configFolderPage

    <*> return (Pandoc (Meta $ Map.singleton "link" $ MetaString "index.html") [])

    <*> return (Pandoc (Meta $ Map.singleton "link" $ MetaString "/index.html") [])

    <*> (unpack <$> readFileUtf8 (toFilePath configTemplateArticle))

    <*> (unpack <$> readFileUtf8 (toFilePath configTemplatePage))

    <*> (unpack <$> readFileUtf8 (toFilePath configTemplateIndex))