From c6d86aeed3491f88bbfdf9667882a49efc509b1d Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Thu, 8 Jun 2023 14:25:32 +0200
Subject: actually take args

---
 site.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'site.hs')

diff --git a/site.hs b/site.hs
index affb61d..b6f6840 100644
--- a/site.hs
+++ b/site.hs
@@ -36,6 +36,7 @@ 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
@@ -316,8 +317,9 @@ renderTags :: Site ()
 renderTags = use (htags . to M.keys) >>= traverse_ renderTag
 
 -- | Build the whole site.
-main =
-  flip runStateT emptySiteState $ do
+main = do
+  init <- Options.Applicative.execParser siteOptions
+  flip runStateT init $ do
     installAssets
     traverse sourcePages ["external"]
     sourceTags
-- 
cgit v1.2.3