Add article and page folders to config parsing

src/Config.hs

@@ -8,6 +8,8 @@ import Path
 
 data Config = Config {
     configOutputFolder :: Path Rel Dir,
+    configArticleFolder :: Path Rel Dir,
+    configPageFolder :: Path Rel Dir,
     configFoldersToCopy :: [Path Rel Dir],
     configNavbar :: [NavItem]
 } deriving (Show)
@@ -20,6 +22,8 @@ data NavItem = NavItem {
 instance FromJSON Config where
     parseJSON = withObject "Config" $ \v -> Config
         <$> v .:? "outputFolder" .!= [reldir|out|]
+        <*> v .:? "articleFolder" .!= [reldir|article|]
+        <*> v .:? "pageFolder" .!= [reldir|page|]
         <*> v .:? "foldersToCopy" .!= []
         <*> v .:? "navbar" .!= [NavItem "Home" "/index.html"]