Commit 5d86d723 authored by Nicolas Lenz's avatar Nicolas Lenz ❄️
Browse files

Add article and page folders to config parsing

parent 24395f50

src/Config.hs

+4 −0
Original line number Diff line number Diff line
@@ -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"]