exa/reploy
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

avoid explosion on people adding abs-path mount

Browse source
This commit is contained in:
Mirek Kratochvil 2023-06-08 15:03:11 +02:00
parent 384e56cb53
commit dc128cbe0e
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
site.hs
View file

@ -66,7 +66,9 @@ loadPage fp = do
md <- io $ runIOorExplode $ readMarkdown markdownReadOpts (T.drop 5 markdown) md <- io $ runIOorExplode $ readMarkdown markdownReadOpts (T.drop 5 markdown)
{- find the main mount point for the page -} {- find the main mount point for the page -}
let mount = 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) existing <- use $ pages . to (M.!? mount)
case existing of case existing of
Just pi -> Just pi ->