aboutsummaryrefslogtreecommitdiff
path: root/reploy.hs
diff options
context:
space:
mode:
Diffstat (limited to 'reploy.hs')
-rw-r--r--reploy.hs2
1 files changed, 1 insertions, 1 deletions
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