Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

For metapackages, just dump out the .pkg files into a folder instead …

…of fruitlessly trying to build a broken installer
  • Loading branch information...
commit 527934abadc2951707356a2e149526e5af672318 1 parent 5cc4579
@gregorycollins authored
Showing with 18 additions and 17 deletions.
  1. +17 −16 Program/MakeMetaPackage.hs
  2. +1 −1  cabal2macpkg.cabal
View
33 Program/MakeMetaPackage.hs
@@ -68,7 +68,7 @@ makeMacMetaPkg opts tmpdir pkgDesc = do
(packageOutputFile opts)
contentsDir <- makeAndCanonicalize $ tmpdir </> "Stage"
- packagesDir <- makeAndCanonicalize $ tmpdir </> "Packages"
+ let packagesDir = outputPackagePath
let subOptions = opts { packageOutputDir = Just packagesDir
, packageOutputFile = Nothing }
@@ -89,27 +89,28 @@ makeMacMetaPkg opts tmpdir pkgDesc = do
return (takeFileName `map` files))
(extraPkgDir opts)
+ return ()
- let allPackages = extraPackages ++ packageFileNames
+ -- let allPackages = extraPackages ++ packageFileNames
- -- FIXME: sizes bogus
- sizes <- mapM (unXarToStaging packagesDir contentsDir) allPackages
+ -- -- FIXME: sizes bogus
+ -- sizes <- mapM (unXarToStaging packagesDir contentsDir) allPackages
- -- write any Resources/ files (likely none), dump out
- -- "Distribution" file, and xar up the results
+ -- -- write any Resources/ files (likely none), dump out
+ -- -- "Distribution" file, and xar up the results
- -- FIXME: Resources/ (for background images)
+ -- -- FIXME: Resources/ (for background images)
- writeInstallerScript (contentsDir </> "Distribution") $
- installerScript pkgTitle
- Nothing -- FIXME: populate these
- Nothing
- (Just pkgDescription)
- Nothing
- Nothing
- (allPackages `zip` sizes)
+ -- writeInstallerScript (contentsDir </> "Distribution") $
+ -- installerScript pkgTitle
+ -- Nothing -- FIXME: populate these
+ -- Nothing
+ -- (Just pkgDescription)
+ -- Nothing
+ -- Nothing
+ -- (allPackages `zip` sizes)
- xarUpResults contentsDir outputPackagePath
+ -- xarUpResults contentsDir outputPackagePath
where
--------------------------------------------------------------------
View
2  cabal2macpkg.cabal
@@ -1,5 +1,5 @@
name: cabal2macpkg
-version: 0.2
+version: 0.3
homepage: http://gregorycollins.net/
synopsis: Create OSX installation packages from Cabal packages
description: Create OSX installation packages from Cabal packages
Please sign in to comment.
Something went wrong with that request. Please try again.