fix reversed append-url-index test

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