diff options
Diffstat (limited to 'Types.hs')
| -rw-r--r-- | Types.hs | 14 |
1 files changed, 13 insertions, 1 deletions
@@ -44,6 +44,8 @@ data SiteState = , _templates :: M.Map FilePath Mu.Template , _outputDir :: FilePath -- ^ Directory for output , _assetDir :: FilePath -- ^ Directory for output + , _sourceDir :: FilePath -- ^ Path to page source data + , _templateDir :: FilePath -- ^ Path to template directory , _defaultTemplate :: FilePath -- ^ Name of the default template , _redirectTemplate :: FilePath -- ^ Name of the template for redirect pages , _tagTemplate :: FilePath -- ^ Name of the template for tag listing pages @@ -71,7 +73,17 @@ siteOptions' = do short 'a' <> help "Assets directory to be copied verbatim" <> value "assets" <> showDefault - --TODO templates directory! + _sourceDir <- + strOption $ + long "source-directory" <> + short 's' <> + help "Path to the directory with source data (possibly multiple paths)" <> + value "cards" <> showDefault + _templateDir <- + strOption $ + long "template-directory" <> + help "Path to the directory with templates" <> + value "templates" <> showDefault _defaultTemplate <- strOption $ long "default-template" <> |