publish-2.1.0: src/Environment.hs

module Environment
(
      Env(..)
    , initial
    , Bookfile(..)
)
where

import System.Posix.Directory (getWorkingDirectory)

data Env = Env
    { startingDirectoryFrom :: FilePath
    , intermediateFilenamesFrom :: [FilePath]
    , masterFilenameFrom :: FilePath
    , resultFilenameFrom :: FilePath
    , tempDirectoryFrom :: FilePath
    }

initial :: IO Env
initial = do
    cwd <- getWorkingDirectory
    return (Env cwd [] "/dev/null" "/dev/null" "/dev/null")

data Bookfile = Bookfile
    { versionFrom :: Int
    , preamblesFrom :: [FilePath]
    , fragmentsFrom :: [FilePath]
    , trailersFrom :: [FilePath]
    } deriving (Show, Eq)