From 4f380f6b801d08fb6499b64f0eb18a8211189acd Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Mon, 16 Oct 2023 11:31:16 +0200
Subject: [PATCH] fix reversed append-url-index test

---
 reploy.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/reploy.hs b/reploy.hs
index 8f1cd73..c29a81b 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -158,10 +158,10 @@ rootedPageLink' = do
   ub <- use urlBase
   app <- use appendUrlIndex
   if app
-    then pure (ub </>)
-    else do
+    then do
       idxf <- use indexFile
       pure $ \x -> ub </> x </> idxf
+    else pure (ub </>)
 
 -- | Transform a link to page to a full rooted URL
 rootedPageLink :: FilePath -> Site FilePath