diff options
Diffstat (limited to 'site.hs')
| -rw-r--r-- | site.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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" |
