avoid explosion on people adding abs-path mount

1 files changed, 3 insertions, 1 deletions

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 ->