Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

30 lines (27 sloc) 0.944 kB
module Main where
import Distribution.MacOSX
import Distribution.MacOSX.AppBuildInfo
import System.Directory
import System.Environment
import System.FilePath
main = do
pname <- getProgName
xs <- getArgs
exe <- case xs of
[x1] -> return x1
_ -> fail $ "Usage: " ++ pname ++ " <exe>"
exeExists <- doesFileExist exe
let macapp = MacApp { appName = takeFileName exe
, appIcon = Nothing
, appPlist = Nothing
, resources = []
, otherBins = []
, appDeps = DoNotChase
}
appInfo = AppBuildInfo { abApp = macapp
, abAppPath = appName macapp <.> "app"
, abAppOrigExe = exe
}
if exeExists
then makeAppBundle appInfo
else fail $ exe ++ " does not exist"
Jump to Line
Something went wrong with that request. Please try again.