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

fix mounts

Browse source
This commit is contained in:
Mirek Kratochvil 2023-06-06 20:23:23 +02:00
parent a1a3f0640b
commit 86c711821b
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
site.hs
View file

@ -63,7 +63,11 @@ 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 "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 -} {- save to the state -}
pages %= pages %=
M.insert mount PageInfo {_pagePath = fp, _pageMeta = yml, _pageDoc = md} M.insert mount PageInfo {_pagePath = fp, _pageMeta = yml, _pageDoc = md}