From 86c711821b650873b91031b113163f9c9d7dfc67 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Tue, 6 Jun 2023 20:23:23 +0200
Subject: [PATCH] fix mounts

---
 site.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/site.hs b/site.hs
index 1a17d58..ab0af28 100644
--- a/site.hs
+++ b/site.hs
@@ -63,7 +63,11 @@ loadPage fp = do
   md <- io $ runIOorExplode $ readMarkdown markdownReadOpts (T.drop 5 markdown)
   {- find the main mount point for the page -}
   let mount =
-        T.unpack . just ("mount point of " ++ fp) $ yml ^? key "title" . _String
+        T.unpack . just ("mount point of " ++ fp) $ yml ^? key "mount" . _String
+  existing <- use $ pages . to (M.!? mount)
+  case existing of
+    Just pi -> error $ "mount for " ++ fp ++ " already exists from " ++ _pagePath pi
+    _ -> pure ()
   {- save to the state -}
   pages %=
     M.insert mount PageInfo {_pagePath = fp, _pageMeta = yml, _pageDoc = md}