Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 30 lines (27 sloc) 0.944 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
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"
Something went wrong with that request. Please try again.