From 7fa8225d8063e3b98b98ba007a78c2892ac4f017 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Mon, 16 Oct 2023 19:00:28 +0200
Subject: [PATCH] avoid re-absoluting the path

---
 reploy.hs | 6 +++---
 1 file 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