From 384e56cb53b2f75299a5a95970f800f9fcc76909 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Thu, 8 Jun 2023 14:42:11 +0200 Subject: more dir parameters --- site.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'site.hs') diff --git a/site.hs b/site.hs index b6f6840..1369457 100644 --- a/site.hs +++ b/site.hs @@ -23,6 +23,7 @@ import Hakyll.Core.Util.File (getRecursiveContents, makeDirectories) import Lens.Micro import Lens.Micro.Aeson import Lens.Micro.Mtl +import qualified Options.Applicative import System.FilePath ( () , isAbsolute @@ -36,7 +37,6 @@ import Text.Pandoc.Class (runIOorExplode) import Text.Pandoc.Readers.Markdown (readMarkdown) import Text.Pandoc.Writers.HTML (writeHtml5String) import qualified Text.Parsec.Error -import qualified Options.Applicative import FormatOpts import Types @@ -321,9 +321,9 @@ main = do init <- Options.Applicative.execParser siteOptions flip runStateT init $ do installAssets - traverse sourcePages ["external"] + use sourceDir >>= sourcePages sourceTags - sourceTemplates "templates" + use templateDir >>= sourceTemplates use pages >>= traverse (uncurry installPage) . M.assocs renderTags io $ putStrLn "OK" -- cgit v1.2.3