{-# LANGUAGE TemplateHaskell #-}
module Puppet.Language.Paths where
import XPrelude
data PuppetDirPaths = PuppetDirPaths
{ _baseDir :: FilePath
, _manifestPath :: FilePath
, _modulesPath :: FilePath
, _templatesPath :: FilePath
, _testPath :: FilePath
}
makeClassy ''PuppetDirPaths
puppetPaths :: FilePath -> PuppetDirPaths
puppetPaths basedir = PuppetDirPaths basedir manifestdir modulesdir templatedir testdir
where
manifestdir = basedir <> "/manifests"
modulesdir = basedir <> "/modules"
templatedir = basedir <> "/templates"
testdir = basedir <> "/tests"