From 8d2c3c229cc4b3025de70a4892ad99c6be33caa2 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Wed, 2 Aug 2023 13:56:11 +0200
Subject: fixup some leftovers in link creation

---
 reploy.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'reploy.hs')

diff --git a/reploy.hs b/reploy.hs
index e3ec004..7e475df 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -280,7 +280,8 @@ installPage mount pi = do
 
 {- | Install a simple redirect handler page. -}
 installRedirect :: FilePath -> FilePath -> Site ()
-installRedirect target from = do
+installRedirect target' from = do
+  target <- rootPageUrl target'
   tname <- use redirectTemplate
   templ <- use $ templates . to (M.! fromString tname)
   file <- indexFilename from
@@ -298,8 +299,7 @@ installPageRedirects :: FilePath -> PageInfo -> Site ()
 installPageRedirects target pi = do
   traverse_
     (installRedirect target)
-    (pi ^.. pageMeta . key "redirects" . values . _String . to T.unpack .
-     to unAbsolute)
+    (pi ^.. pageMeta . key "redirects" . values . _String . to T.unpack)
 
 -- | Find the path to the file of a given hash
 dataFilename :: String -> FilePath -> Site (FilePath, FilePath)
-- 
cgit v1.2.3