fixup some leftovers in link creation

1 files changed, 3 insertions, 3 deletions

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)