fixup some leftovers in link creation

pages/index.md

@@ -1,5 +1,7 @@
 ---
 mount: /
+redirects:
+  - also_index
 title: Home
 toc: off
 timestamp: null

reploy.hs

@@ -280,7 +280,8 @@ installPage mount pi = do
 
 {- | Install a simple redirect handler page. -}
 installRedirect :: FilePath -> FilePath -> Site ()
-installRedirect target from = do
+installRedirect target' from = do
+  target <- rootPageUrl target'
   tname <- use redirectTemplate
   templ <- use $ templates . to (M.! fromString tname)
   file <- indexFilename from
@@ -298,8 +299,7 @@ installPageRedirects :: FilePath -> PageInfo -> Site ()
 installPageRedirects target pi = do
   traverse_
     (installRedirect target)
-    (pi ^.. pageMeta . key "redirects" . values . _String . to T.unpack .
-     to unAbsolute)
+    (pi ^.. pageMeta . key "redirects" . values . _String . to T.unpack)
 
 -- | Find the path to the file of a given hash
 dataFilename :: String -> FilePath -> Site (FilePath, FilePath)

templates/searchresults.html

@@ -19,7 +19,7 @@
 
 <div id="search_fail" style="display: none">
   <h1>No results found</h1>
-  <p>You may try a simpler search query, or find the page <a href="{{root}}tag">by the categories</a>.</p>
+  <p>You may try a simpler search query, or find the page <a href="{{#pageLink}}tag{{/pageLink}}">by the categories</a>.</p>
 </div>
 
 <div id="search_error" style="display: none">