publish-2.1.3: 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)