aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pages/index.md2
-rw-r--r--reploy.hs6
2 files changed, 6 insertions, 2 deletions
diff --git a/pages/index.md b/pages/index.md
index 5fedf2c..b543ec2 100644
--- a/pages/index.md
+++ b/pages/index.md
@@ -10,3 +10,5 @@ timestamp: null
# Well hello there
This site is empty, you can start populating it!
+
+[link test](/?link-test)
diff --git a/reploy.hs b/reploy.hs
index c540d5b..b94046d 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -210,7 +210,7 @@ addGlobalMeta meta = do
rtp <- rootedPageLink'
pn <- pageName'
aui <- use appendUrlIndex
- ifname <- use indexFilename
+ ifi <- use indexFile
Y.Object m <- (`objMerge` meta) <$> use extraMeta
let l = map (\(k, v) -> (K.toText k, Mu.toMustache v)) $ KM.toList m
pure . Mu.object
@@ -220,7 +220,9 @@ addGlobalMeta meta = do
, ("pageLink", Mu.overText $ T.pack . rtp . T.unpack)
, ("pageName", Mu.overText $ T.pack . pn . T.unpack)
]
- ++ (if aui then [("indexFilename", Mu.toMustache $ T.pack ifname )] else [])
+ ++ (if aui
+ then [("indexFile", Mu.toMustache $ T.pack ifi)]
+ else [])
-- | Get the expected timestamp file for a given filepath
metadataFile :: FilePath -> Site FilePath