avoid re-absoluting the path

1 files changed, 3 insertions, 3 deletions

diff --git a/reploy.hs b/reploy.hs
index a244715..c76b04a 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -160,8 +160,8 @@ rootedPageLink' = do
   if app
     then do
       idxf <- use indexFile
-      pure $ \x -> ub </> x </> idxf
-    else pure (ub </>)
+      pure $ \x -> ub </> unAbsolute x </> idxf
+    else pure $ (ub </>) . unAbsolute
 
 -- | Transform a link to page to a full rooted URL
 rootedPageLink :: FilePath -> Site FilePath
@@ -171,7 +171,7 @@ rootedPageLink = (<*>) rootedPageLink' . pure
 rootedLink' :: Site (FilePath -> FilePath)
 rootedLink' = do
   ub <- use urlBase
-  pure (ub </>)
+  pure $ (ub </>) . unAbsolute
 
 -- | Transform a link to file to a rooted URL.
 rootedLink :: FilePath -> Site FilePath