avoid re-absoluting the path

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