avoid overwriting timestamps if they are forced by markdown already

Types.hs

@@ -132,7 +132,8 @@ siteOptions' = do
   _timestampSuffix <-
     strOption $
     long "timestamp-prefix" <>
-    help "Timestamp file suffix for markdowns" <> value ".timestamp" <> showDefault
+    help "Timestamp file suffix for markdowns" <>
+    value ".timestamp" <> showDefault
   _dumpFinalState <-
     switch $
     long "dump-state" <>

cards/404.md

@@ -2,6 +2,8 @@
 mount: /404
 title: Page not found
 search: off
+toc: off
+timestamp: null
 ---
 
 # Page not found!

cards/index.md

@@ -3,6 +3,7 @@ mount: /
 title: Home
 template: index.html
 toc: off
+timestamp: null
 ---
 
 #### What are How-To Cards?

cards/search.md

@@ -4,6 +4,7 @@ title: Search
 template: search.html
 search: off
 toc: off
+timestamp: null
 ---
 
 # Search

site.hs

@@ -182,15 +182,17 @@ timestampFile fp = do
 
 -- | If a timestamp file for the page exists, add the timestamp metadata.
 addTimeMeta :: PageInfo -> Y.Value -> Site Y.Value
-addTimeMeta pi m'@(Y.Object m) = do
+addTimeMeta pi m'@(Y.Object m)
-  tspath <- timestampFile $ pi ^. pagePath
+  | "timestamp" `KM.member` m = pure m' -- do not overwrite the timestamp if present
-  io $
+  | otherwise = do
-    ifM
+    tspath <- timestampFile $ pi ^. pagePath
-      (doesFileExist tspath)
+    io $
-      (do putStrLn $ "timestamp <- " ++ tspath
+      ifM
-          ts <- Y.String <$> TIO.readFile tspath
+        (doesFileExist tspath)
-          pure . Y.Object $ KM.insert "timestamp" ts m)
+        (do putStrLn $ "timestamp <- " ++ tspath
-      (pure m')
+            ts <- Y.String <$> TIO.readFile tspath
+            pure . Y.Object $ KM.insert "timestamp" ts m)
+        (pure m')
 
 -- | Add page-specific information to the metadata. In this instance, this just
 -- expands the tags for rendering. Eventually would be nice to have the timestamps