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

cmts

Browse source
This commit is contained in:
Mirek Kratochvil 2023-05-27 21:00:21 +02:00
parent 31f54f94ba
commit adb4ffd5d5
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
site.hs
View file

@ -82,6 +82,7 @@ pageTemplates = do
nub . ([rt, tt] ++) <$> nub . ([rt, tt] ++) <$>
(gets (^.. pages . traverse) >>= traverse pageTemplate) (gets (^.. pages . traverse) >>= traverse pageTemplate)
-- | Compile a single template in a directory
compileTemplate :: compileTemplate ::
FilePath FilePath
-> FilePath -> FilePath
@ -127,6 +128,7 @@ processLink base l = do
pageFilename :: FilePath -> Site FilePath pageFilename :: FilePath -> Site FilePath
pageFilename p = indexFilename $ "page" </> p pageFilename p = indexFilename $ "page" </> p
-- | Like `Mu.substitute` but writes and throws stuff on errors
checkedSubstitute :: Mu.Template -> Y.Value -> IO T.Text checkedSubstitute :: Mu.Template -> Y.Value -> IO T.Text
checkedSubstitute t v = do checkedSubstitute t v = do
let (es, txt) = Mu.checkedSubstitute t v let (es, txt) = Mu.checkedSubstitute t v
@ -161,7 +163,8 @@ installRedirect target from = do
io $ do io $ do
putStrLn $ "@ -> " ++ file ++ " -> " ++ target putStrLn $ "@ -> " ++ file ++ " -> " ++ target
makeDirectories file makeDirectories file
txt <- checkedSubstitute templ $ Y.object [("target", Y.String $ T.pack target)] txt <-
checkedSubstitute templ $ Y.object [("target", Y.String $ T.pack target)]
TIO.writeFile file txt TIO.writeFile file txt
-- | Install all redirects required by one page. -- | Install all redirects required by one page.