exa/reploy
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix reversed append-url-index test

Browse source
This commit is contained in:
Mirek Kratochvil 2023-10-16 11:31:16 +02:00
parent 318d603c51
commit 4f380f6b80
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
reploy.hs
View file

@ -158,10 +158,10 @@ rootedPageLink' = do
ub <- use urlBase ub <- use urlBase
app <- use appendUrlIndex app <- use appendUrlIndex
if app if app
then pure (ub </>) then do
else do
idxf <- use indexFile idxf <- use indexFile
pure $ \x -> ub </> x </> idxf pure $ \x -> ub </> x </> idxf
else pure (ub </>)
-- | Transform a link to page to a full rooted URL -- | Transform a link to page to a full rooted URL
rootedPageLink :: FilePath -> Site FilePath rootedPageLink :: FilePath -> Site FilePath