module Distribution.MacOSX.AppBuildInfo where
import Distribution.Simple.LocalBuildInfo (LocalBuildInfo(..))
import System.FilePath
import Distribution.MacOSX.Common
data AppBuildInfo = AppBuildInfo
{
abAppPath :: FilePath
, abAppOrigExe :: FilePath
, abApp :: MacApp
}
toAppBuildInfo :: LocalBuildInfo -> MacApp -> AppBuildInfo
toAppBuildInfo localb app = createAppBuildInfo (buildDir localb) app
createAppBuildInfo :: FilePath -> MacApp -> AppBuildInfo
createAppBuildInfo buildDirLocalBuildInfo app = AppBuildInfo
{ abAppPath = buildDirLocalBuildInfo </> appName app <.> "app"
, abAppOrigExe = buildDirLocalBuildInfo </> appName app </> appName app
, abApp = app
}