fix reversed append-url-index test

1 files 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