actually take args

1 files changed, 4 insertions, 2 deletions

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