more dir parameters

1 files changed, 3 insertions, 3 deletions

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"