module Blog.Path (
      Path(..)
    , build
  ) where

import Arguments (Arguments)
import qualified Arguments as Arguments (Arguments(..))

data Path = Path {
      articlesPath :: FilePath
    , commentsAt :: Maybe String
    , pagesPath :: Maybe FilePath
    , root :: FilePath
  }

build :: Arguments -> Path
build arguments = Path {
      articlesPath = Arguments.articlesPath arguments
    , commentsAt = Arguments.commentsAt arguments
    , pagesPath = Arguments.pagesPath arguments
    , root = Arguments.sourceDir arguments
  }