From dc128cbe0e959bb6ae2abb5d5b81794e8b82d049 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Thu, 8 Jun 2023 15:03:11 +0200
Subject: [PATCH] avoid explosion on people adding abs-path mount

---
 site.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/site.hs b/site.hs
index 1369457..31e8ecc 100644
--- a/site.hs
+++ b/site.hs
@@ -66,7 +66,9 @@ 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 "mount" . _String
+        dropWhile (== '/') . T.unpack . just ("mount point of " ++ fp) $ yml ^?
+        key "mount" .
+        _String
   existing <- use $ pages . to (M.!? mount)
   case existing of
     Just pi ->