source multiple directories at once

1 files changed, 2 insertions, 2 deletions

diff --git a/site.hs b/site.hs
index 4efe2bd..45bc7b2 100644
--- a/site.hs
+++ b/site.hs
@@ -127,7 +127,7 @@ checkTarget fp = do
 
 -- | Prepend the root path to the given link
 rootUrl :: FilePath -> Site FilePath
-rootUrl fp = (</> dropWhile (=='/') fp) <$> use urlBase
+rootUrl fp = (</> dropWhile (== '/') fp) <$> use urlBase
 
 -- | Process a single link pointing out from a page.
 processLink :: FilePath -> FilePath -> Site String
@@ -324,7 +324,7 @@ main = do
   init <- Options.Applicative.execParser siteOptions
   flip runStateT init $ do
     installAssets
-    use sourceDir >>= sourcePages
+    use sourceDirs >>= traverse sourcePages
     sourceTags
     use templateDir >>= sourceTemplates
     use pages >>= traverse (uncurry installPage) . M.assocs