From 7a60fce085b5ae8d9f17699489415f20a5f18f8c Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Mon, 23 Oct 2023 20:05:46 +0200
Subject: switch to a safe version of </>

---
 reploy.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'reploy.hs')

diff --git a/reploy.hs b/reploy.hs
index 78574d4..b748e08 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -306,7 +306,7 @@ installRedirect target' from = do
   target <- rootedPageLink target'
   tname <- use redirectTemplate
   templ <- use $ templates . to (M.! fromString tname)
-  file <- indexFilename from
+  file <- indexFilename (unAbsolute from)
   checkTarget file
   io $ do
     putStrLn $ "@ -> " ++ file ++ " -> " ++ target
-- 
cgit v1.2.3