some fixes

1 files changed, 4 insertions, 2 deletions

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