ghcjs (0.1.0-1) precise-seereason; urgency=low * Debianization generated by cabal-debian * Built from hackage, revision: Debianize (Patch (Patch (Patch (Patch (Patch (Patch (Git "https://github.com/ghcjs/ghcjs") "--- old/src/Compiler/Program.hs\t2014-06-07 05:57:25.651574955 -0700\n+++ new/src/Compiler/Program.hs\t2014-06-07 06:08:30.987593539 -0700\n@@ -667,7 +667,7 @@\n , Flag \"M\" (PassFlag (setMode doMkDependHSMode))\n , Flag \"E\" (PassFlag (setMode (stopBeforeMode anyHsc)))\n , Flag \"C\" (PassFlag (setMode (stopBeforeMode HCc)))\n- , Flag \"S\" (PassFlag (setMode (stopBeforeMode As)))\n+ , Flag \"S\" (PassFlag (setMode (stopBeforeMode (As False))))\n , Flag \"-make\" (PassFlag (setMode doMakeMode))\n , Flag \"-interactive\" (PassFlag (setMode doInteractiveMode))\n , Flag \"-abi-hash\" (PassFlag (setMode doAbiHashMode))\n@@ -744,7 +744,7 @@\n haskellish (f,Nothing) =\n looksLikeModuleName f || isHaskellUserSrcFilename f || '.' `notElem` f\n haskellish (_,Just phase) =\n- phase `notElem` [As, Cc, Cobjc, Cobjcpp, CmmCpp, Cmm, StopLn]\n+ phase `notElem` [As False, As True, Cc, Cobjc, Cobjcpp, CmmCpp, Cmm, StopLn]\n \n hsc_env <- GHC.getSession\n \n--- old/src/Compiler/GhcjsHooks.hs\t2014-06-07 05:57:25.651574955 -0700\n+++ new/src/Compiler/GhcjsHooks.hs\t2014-06-07 06:06:58.075590944 -0700\n@@ -149,10 +149,10 @@\n | Just next <- lookup ph skipPhases = do\n output <- phaseOutputFilename next\n liftIO (copyFile input output)\n- when (ph == As) (liftIO $ doFakeNative dflags (dropExtension output))\n+ case ph of As _ -> (liftIO $ doFakeNative dflags (dropExtension output)); _ -> return ()\n return (RealPhase next, output)\n where\n- skipPhases = [ (CmmCpp, Cmm), (Cmm, As), (As, StopLn) ]\n+ skipPhases = [ (CmmCpp, Cmm), (Cmm, As False), (Cmm, As True), (As False, StopLn), (As True, StopLn) ]\n \n -- otherwise use default\n runGhcjsPhase _ _ p input dflags = runPhase p input dflags\n") "--- old/src/Compiler/JMacro/Base.hs\t2014-05-30 17:19:55.000000000 -0700\n+++ new/src/Compiler/JMacro/Base.hs\t2014-05-30 17:35:47.724564505 -0700\n@@ -177,7 +177,7 @@\n | LeOp -- <=\n | AddOp -- +\n | SubOp -- -\n- | MulOp -- *\n+ | MulOp -- (this was a star, but it confused haddock)\n | DivOp -- /\n | ModOp -- %\n | LeftShiftOp -- <<\n--- old/src/Compiler/Variants.hs.orig\t2014-05-30 16:58:44.000000000 -0700\n+++ new/src/Compiler/Variants.hs\t2014-05-30 18:06:24.000000000 -0700\n@@ -25,12 +25,12 @@\n -> ByteString\n , variantLink :: DynFlags\n -> GhcjsSettings\n- -> FilePath -- ^ output directory\n- -> [FilePath] -- ^ include paths for home package\n- -> [(PackageId, [FilePath])] -- ^ library dirs for dependencies\n- -> [FilePath] -- ^ object files\n- -> [FilePath] -- ^ extra JavaScript files\n- -> (Gen2.Fun -> Bool) -- ^ function to use as roots\n+ -> FilePath -- output directory\n+ -> [FilePath] -- include paths for home package\n+ -> [(PackageId, [FilePath])] -- library dirs for dependencies\n+ -> [FilePath] -- object files\n+ -> [FilePath] -- extra JavaScript files\n+ -> (Gen2.Fun -> Bool) -- function to use as roots\n -> IO ()\n }\n \n--- old/src/Gen2/ClosureInfo.hs.orig\t2014-05-30 17:39:06.000000000 -0700\n+++ new/src/Gen2/ClosureInfo.hs\t2014-05-30 17:53:52.000000000 -0700\n@@ -323,8 +323,8 @@\n in skip + (nregs `shiftL` 8)\n \n \n-data StaticInfo = StaticInfo { siVar :: !Text -- | global object\n- , siVal :: !StaticVal -- | static initialization\n+data StaticInfo = StaticInfo { siVar :: !Text -- global object\n+ , siVal :: !StaticVal -- static initialization\n }\n deriving (Eq, Ord, Show, Typeable)\n \n@@ -351,7 +351,7 @@\n | DoubleLit !SaneDouble -- should we actually use double here?\n | StringLit !Text\n | BinLit !ByteString\n- | LabelLit !Bool !Text -- | is function pointer, label (also used for string / binary init)\n+ | LabelLit !Bool !Text -- is function pointer, label (also used for string / binary init)\n deriving (Eq, Ord, Show, Typeable)\n \n instance ToJExpr StaticArg where\n--- old/src/Gen2/Compactor.hs.orig\t2014-05-30 17:39:06.000000000 -0700\n+++ new/src/Gen2/Compactor.hs\t2014-05-30 17:56:38.000000000 -0700\n@@ -305,7 +305,7 @@\n | (CIFun arity regs0) <- typ = [1, arity, encodeRegs regs] ++ ls\n | (CICon tag) <- typ = [2, tag] ++ ls\n | CIStackFrame <- typ = [3, encodeRegs regs] ++ ls\n--- | (CIPap ar) <- typ = [4, ar] ++ ls -- these should only appear during runtime\n+-- (CIPap ar) <- typ = [4, ar] ++ ls -- these should only appear during runtime\n | otherwise = error (\"encodeInfo, unexpected closure type: \" ++ show typ)\n where\n ls = encodeLayout layout ++ encodeSrt static\n--- old/src/Gen2/Generator.hs.orig\t2014-05-30 17:39:06.000000000 -0700\n+++ new/src/Gen2/Generator.hs\t2014-05-30 18:02:48.000000000 -0700\n@@ -1178,9 +1178,9 @@\n \n \n -- find a specialized application path if there is one\n-selectApply :: Bool -> -- ^ true for fast apply, false for stack apply\n- ([StgArg], [JExpr]) -> -- ^ arguments\n- G (JExpr,Bool) -- ^ the function to call, true if specialized path\n+selectApply :: Bool -> -- true for fast apply, false for stack apply\n+ ([StgArg], [JExpr]) -> -- arguments\n+ G (JExpr,Bool) -- the function to call, true if specialized path\n selectApply fast (args, as) = do\n case specApply fast (length args) (length as) of\n Just e -> return (e, True)\n--- old/src/Gen2/DynamicLinking.hs.orig\t2014-05-30 16:58:44.000000000 -0700\n+++ new/src/Gen2/DynamicLinking.hs\t2014-05-30 18:10:45.000000000 -0700\n@@ -341,9 +341,6 @@\n -- by the RTS. We can't therefore use the ordinary way opts for these.\n let\n debug_opts | WayDebug `elem` ways dflags = [\n--- #if defined(HAVE_LIBBFD)\n--- \"-lbfd\", \"-liberty\"\n--- #endif\n ]\n | otherwise = []\n \n") "--- old/ghcjs.cabal\t2014-06-05 15:07:30.495670232 -0700\n+++ new/ghcjs.cabal\t2014-06-05 15:12:35.259678745 -0700\n@@ -75,7 +75,7 @@\n GHCJS\n other-modules: Paths_ghcjs\n build-depends: base >= 4 && < 5,\n- Cabal,\n+ Cabal >= 1.21, regex-tdfa, debian,\n ghc >= 7.8 && < 7.10,\n directory,\n filepath,\n@@ -90,7 +90,7 @@\n aeson >= 0.7 && < 0.8,\n text >= 0.11 && < 1.2,\n wl-pprint-text >= 1.1 && < 1.2,\n- lens >= 4.0 && < 4.2,\n+ lens >= 4.0 && < 4.3,\n yaml >= 0.8 && < 0.9,\n time,\n system-filepath,\n@@ -113,12 +113,13 @@\n safe >= 0.3 && < 0.4,\n parsec >= 3.1 && < 3.2,\n haskell-src-exts >= 1.15 && < 1.16,\n- haskell-src-meta >= 0.6.0.3 && < 0.7\n+ haskell-src-meta >= 0.6.0.3 && < 0.7,\n+ filemanip\n exposed: True\n buildable: True\n hs-source-dirs: src\n include-dirs: include\n- GHC-Options: -O2 -fno-warn-orphans -auto-all -Wall\n+ GHC-Options: -O2 -fno-warn-orphans -auto-all -Wall -package Cabal-1.21.0.0 -package Cabal-1.18.1.3\n \n Executable ghcjs\n Main-Is: Main.hs\n@@ -126,7 +127,7 @@\n hs-source-dirs: src-bin\n Build-Depends: base >= 4 && < 5,\n ghcjs\n- GHC-Options: -O2 -rtsopts -with-rtsopts=-N -with-rtsopts=-K256m -threaded\n+ GHC-Options: -O2 -rtsopts -with-rtsopts=-N -with-rtsopts=-K256m -threaded -package Cabal-1.21.0.0 -package Cabal-1.18.1.3\n \n Executable haddock-ghcjs\n if os(Windows)\n@@ -138,7 +139,7 @@\n process,\n filepath,\n ghcjs\n- GHC-Options: -O\n+ GHC-Options: -O -package Cabal-1.21.0.0 -package Cabal-1.18.1.3\n \n Executable ghcjs-pkg\n if flag(compiler-only)\n@@ -146,12 +147,13 @@\n Main-Is: Pkg.hs\n Default-Language: Haskell2010\n Hs-Source-Dirs: src-bin\n+ ghc-options: -package Cabal-1.21.0.0 -package Cabal-1.18.1.3\n Build-Depends: ghcjs,\n base >= 4 && < 5,\n directory >= 1 && < 1.3,\n process >= 1 && < 1.3,\n filepath,\n- Cabal,\n+ Cabal >= 1.21, regex-tdfa, debian,\n binary,\n bin-package-db,\n bytestring\n@@ -169,11 +171,12 @@\n Main-Is: Boot.hs\n Default-Language: Haskell2010\n Hs-Source-Dirs: src-bin\n+ ghc-options: -package Cabal-1.21.0.0 -package Cabal-1.18.1.3\n Build-Depends: base >= 4 && < 5,\n ghcjs,\n directory,\n network,\n- Cabal,\n+ Cabal >= 1.21, regex-tdfa, debian,\n ghc,\n ghc-paths,\n text >= 0.11 && < 1.2,\n@@ -191,7 +194,7 @@\n type: exitcode-stdio-1.0\n Default-Language: Haskell2010\n hs-source-dirs: test\n- ghc-options: -threaded -O\n+ ghc-options: -threaded -O -package Cabal-1.21.0.0 -package Cabal-1.18.1.3\n main-is: TestRunner.hs\n build-depends: base >= 4 && < 5,\n process,\n") "--- old/Setup.hs\t2014-06-18 09:00:13.988958432 -0700\n+++ new/Setup.hs\t2014-06-18 09:02:06.040961561 -0700\n@@ -1,2 +1,4 @@\n+import System.IO (hPutStrLn, stderr)\n+\n import Distribution.Simple (defaultMainWithHooks, simpleUserHooks, hookedPrograms, UserHooks(..))\n import Distribution.Simple.Program.Types (simpleProgram)\n@@ -33,5 +35,5 @@\n _ -> []\n \n-main = defaultMainWithHooks simpleUserHooks\n+main = defaultMainWithHooks $ showHooks $ simpleUserHooks\n { hookedPrograms = [simpleProgram \"java\"]\n , preConf = ghcjsPreConf\n@@ -61,2 +63,49 @@\n \n autoboot = rawSystem \"dist-ghc/build/ghcjs-boot/ghcjs-boot\" [\"--auto\"] -- fixme make sure that the one from the current install is being run\n+\n+showHooks :: UserHooks -> UserHooks\n+showHooks hooks =\n+ hooks {\n+ -- , runTests = \\ a b c d -> (runTests simpleUserHooks) a b c d -- :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO ()\n+ preConf = \\ a b -> bracketMessage \"preConf\" $ (preConf hooks) a b -- :: Args -> ConfigFlags -> IO HookedBuildInfo\n+ , confHook = \\ a b -> bracketMessage \"confHook\" $ (confHook hooks) a b -- :: (GenericPackageDescription, HookedBuildInfo) -> ConfigFlags -> IO LocalBuildInfo,\n+ , postConf = \\ a b c d -> bracketMessage \"postConf\" $ (postConf hooks) a b c d -- :: Args -> ConfigFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preBuild = \\ a b -> bracketMessage \"preBuild\" $ (preBuild hooks) a b -- :: Args -> BuildFlags -> IO HookedBuildInfo,\n+ , buildHook = \\ a b c d -> bracketMessage \"buildHook\" $ (buildHook hooks) a b c d -- :: PackageDescription -> LocalBuildInfo -> UserHooks -> BuildFlags -> IO (),\n+ , postBuild = \\ a b c d -> bracketMessage \"postBuild\" $ (postBuild hooks) a b c d -- :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preRepl = \\ a b -> bracketMessage \"preRepl\" $ (preRepl hooks) a b -- :: Args -> ReplFlags -> IO HookedBuildInfo,\n+ , replHook = \\ a b c d e -> bracketMessage \"replHook\" $ (replHook hooks) a b c d e -- :: PackageDescription -> LocalBuildInfo -> UserHooks -> ReplFlags -> [String] -> IO (),\n+ , postRepl = \\ a b c d -> bracketMessage \"postRepl\" $ (postRepl hooks) a b c d -- :: Args -> ReplFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preClean = \\ a b -> bracketMessage \"preClean\" $ (preClean hooks) a b -- :: Args -> CleanFlags -> IO HookedBuildInfo,\n+ , cleanHook = \\ a b c d -> bracketMessage \"cleanHook\" $ (cleanHook hooks) a b c d -- :: PackageDescription -> () -> UserHooks -> CleanFlags -> IO (),\n+ , postClean = \\ a b c d -> bracketMessage \"postClean\" $ (postClean hooks) a b c d -- :: Args -> CleanFlags -> PackageDescription -> () -> IO (),\n+ , preCopy = \\ a b -> bracketMessage \"preCopy\" $ (preCopy hooks) a b -- :: Args -> CopyFlags -> IO HookedBuildInfo,\n+ , copyHook = \\ a b c d -> bracketMessage \"copyHook\" $ (copyHook hooks) a b c d -- :: PackageDescription -> LocalBuildInfo -> UserHooks -> CopyFlags -> IO (),\n+ , postCopy = \\ a b c d -> bracketMessage \"postCopy\" $ (postCopy hooks) a b c d -- :: Args -> CopyFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preInst = \\ a b -> bracketMessage \"preInst\" $ (preInst hooks) a b -- :: Args -> InstallFlags -> IO HookedBuildInfo,\n+ , instHook = \\ a b c d -> bracketMessage \"instHook\" $ (instHook hooks) a b c d -- :: PackageDescription -> LocalBuildInfo -> UserHooks -> InstallFlags -> IO (),\n+ , postInst = \\ a b c d -> bracketMessage \"postInst\" $ (postInst hooks) a b c d -- :: Args -> InstallFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preSDist = \\ a b -> bracketMessage \"preSDist\" $ (preSDist hooks) a b -- :: Args -> SDistFlags -> IO HookedBuildInfo,\n+ , sDistHook = \\ a b c d -> bracketMessage \"sDistHook\" $ (sDistHook hooks) a b c d -- :: PackageDescription -> Maybe LocalBuildInfo -> UserHooks -> SDistFlags -> IO (),\n+ , postSDist = \\ a b c d -> bracketMessage \"postSDist\" $ (postSDist hooks) a b c d -- :: Args -> SDistFlags -> PackageDescription -> Maybe LocalBuildInfo -> IO (),\n+ , preReg = \\ a b -> bracketMessage \"preReg\" $ (preReg hooks) a b -- :: Args -> RegisterFlags -> IO HookedBuildInfo,\n+ , regHook = \\ a b c d -> bracketMessage \"regHook\" $ (regHook hooks) a b c d -- :: PackageDescription -> LocalBuildInfo -> UserHooks -> RegisterFlags -> IO (),\n+ , postReg = \\ a b c d -> bracketMessage \"postReg\" $ (postReg hooks) a b c d -- :: Args -> RegisterFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preUnreg = \\ a b -> bracketMessage \"preUnreg\" $ (preUnreg hooks) a b -- :: Args -> RegisterFlags -> IO HookedBuildInfo,\n+ , unregHook = \\ a b c d -> bracketMessage \"unregHook\" $ (unregHook hooks) a b c d -- :: PackageDescription -> LocalBuildInfo -> UserHooks -> RegisterFlags -> IO (),\n+ , postUnreg = \\ a b c d -> bracketMessage \"postUnreg\" $ (postUnreg hooks) a b c d -- :: Args -> RegisterFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preHscolour = \\ a b -> bracketMessage \"preHscolour\" $ (preHscolour hooks) a b -- :: Args -> HscolourFlags -> IO HookedBuildInfo,\n+ , hscolourHook = \\ a b c d -> bracketMessage \"hscolourHook\" $ (hscolourHook hooks) a b c d -- :: PackageDescription -> LocalBuildInfo -> UserHooks -> HscolourFlags -> IO (),\n+ , postHscolour = \\ a b c d -> bracketMessage \"postHscolour\" $ (postHscolour hooks) a b c d -- :: Args -> HscolourFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preHaddock = \\ a b -> bracketMessage \"preHaddock\" $ (preHaddock hooks) a b -- :: Args -> HaddockFlags -> IO HookedBuildInfo,\n+ , haddockHook = \\ a b c d -> bracketMessage \"haddockHook\" $ (haddockHook hooks) a b c d -- :: PackageDescription -> LocalBuildInfo -> UserHooks -> HaddockFlags -> IO (),\n+ , postHaddock = \\ a b c d -> bracketMessage \"postHaddock\" $ (postHaddock hooks) a b c d -- :: Args -> HaddockFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preTest = \\ a b -> bracketMessage \"preTest\" $ (preTest hooks) a b -- :: Args -> TestFlags -> IO HookedBuildInfo,\n+ , testHook = \\ a b c d -> bracketMessage \"testHook\" $ (testHook hooks) a b c d -- :: PackageDescription -> LocalBuildInfo -> UserHooks -> TestFlags -> IO (),\n+ , postTest = \\ a b c d -> bracketMessage \"postTest\" $ (postTest hooks) a b c d -- :: Args -> TestFlags -> PackageDescription -> LocalBuildInfo -> IO (),\n+ , preBench = \\ a b -> bracketMessage \"preBench\" $ (preBench hooks) a b -- :: Args -> BenchmarkFlags -> IO HookedBuildInfo,\n+ , benchHook = \\ a b c d e -> bracketMessage \"benchHook\" $ (benchHook hooks) a b c d e -- :: Args -> PackageDescription -> LocalBuildInfo -> UserHooks -> BenchmarkFlags -> IO (),\n+ , postBench = \\ a b c d -> bracketMessage \"postBench\" $ (postBench hooks) a b c d -- :: Args -> BenchmarkFlags -> PackageDescription -> LocalBuildInfo -> IO ()\n+ }\n+ where\n+ bracketMessage s x = hPutStrLn stderr (\"--> \" ++ s) >> x >>= \\ r -> hPutStrLn stderr (\"<-- \" ++ s) >> return r\n") "diff -ru ghcjs/Setup.hs new//Setup.hs\n--- old/Setup.hs\t2014-06-19 12:49:04.403755249 -0700\n+++ new/Setup.hs\t2014-06-19 11:46:02.455649613 -0700\n@@ -11,19 +11,66 @@\n import Control.Monad (when)\n import Data.Maybe (maybe, listToMaybe)\n \n+import Data.Char (toLower)\n+import Data.List (intercalate, intersperse)\n+import Data.Maybe (mapMaybe)\n+import Debian.Relation (BinPkgName(..))\n+import System.Environment (setEnv)\n+import System.FilePath (takeDirectory)\n+import System.Process (readProcess, showCommandForUser)\n+import Text.Regex.TDFA\n+\n+-- Find the list of libraries built into ghcjs, turn them into debian\n+-- virtual package names, and append an assignment to variable\n+-- haskell:Provides into the ghcjs.substvars file.\n+\n+hcProvides dir = do\n+ setEnv \"HOME\" \"/homedoesnotexistatbuildtime\"\n+ pkgs <- readProcess' (dir \"ghcjs-pkg/ghcjs-pkg\") [\"list\", \"-v2\"] \"\" >>= return . concatMap parseLib . lines\n+ appendFile \"debian/ghcjs.substvars\" (\"haskell:Provides=\" ++ intercalate \", \" (map (\\ (BinPkgName name) -> name) pkgs))\n+ where\n+ parseLib :: String -> [BinPkgName]\n+ parseLib s = case s =~ \"^.*\\\\((.*)-([0-9.]*)-(.....)...........................\\\\)$\" :: (String, String, String, [String]) of\n+ (_, _, _, [name,ver,sum]) ->\n+ [BinPkgName (\"libghcjs-\" ++ map toLower name ++ \"-dev\"),\n+ BinPkgName (\"libghcjs-\" ++ map toLower name ++ \"-dev-\" ++ ver ++ \"-\" ++ sum)]\n+ _ -> []\n+\n main = defaultMainWithHooks $ showHooks $ simpleUserHooks\n { hookedPrograms = [simpleProgram \"java\"]\n+ , preConf = ghcjsPreConf\n+ , postCopy = ghcjsPostCopy\n+ , postBuild = ghcjsPostBuild\n , postInst = ghcjsPostInst\n }\n \n-ghcjsPostInst _ _ pkgDesc lbi = when doBoot (autoboot >> return ())\n+ghcjsPostInst _ _ pkgDesc lbi = do\n+ when doBoot (autoboot lbi >> return ())\n where\n ghcjsexe = listToMaybe $ filter (\\(Executable s _ _) -> s == \"ghcjs\") \n (executables . localPkgDescr $ lbi)\n doBoot = maybe False (any (==(\"x-boot\", \"True\")).customFieldsBI.buildInfo) ghcjsexe\n \n-autoboot = rawSystem \"ghcjs-boot\" [\"--auto\"] -- fixme make sure that the one from the current install is being run\n+ghcjsPreConf a b = do\n+ mapM_ (\\ p -> rawSystem' \"apt-get\" [\"remove\", \"--yes\", p]) [\"ghcjs-tools\", \"ghcjs\", \"libghcjs-ghcjs-dom-dev\", \"libghcjs-ghcjs-dom-doc\"]\n+ rawSystem' \"rm\" [\"-rf\", \"/homedoesnotexistatbuildtime\", \"homedoesnotexistatbuildtime\"]\n+ preConf simpleUserHooks a b\n+\n+ghcjsPostBuild a b c lbi = do\n+ rawSystem' \"cabal\" [\"update\"]\n+ rawSystem' \"cp\" [buildDir lbi \"ghcjs-pkg/ghcjs-pkg\", \"/usr/bin/ghcjs-pkg\"]\n+ rawSystem' \"cp\" [buildDir lbi \"ghcjs/ghcjs\", \"/usr/bin/ghcjs\"]\n+ rawSystem' (buildDir lbi \"ghcjs-boot/ghcjs-boot\") [\"--init\"]\n+ let junk = [\"*/config.guess\", \"*/config.sub\", \"*/ghcjs-boot\", \"*/packages/hackage.haskell.org\", \"*/.cabal/logs\"]\n+ readProcess' \"find\" ([\"/homedoesnotexistatbuildtime\"] ++ concat (intersperse [\"-o\"] (map (\\ p -> [\"-path\", p]) junk))) \"\" >>= mapM_ (\\ name -> rawSystem' \"rm\" [\"-rf\", name]) . lines\n+ rawSystem' \"cp\" [\"-apx\", \"/homedoesnotexistatbuildtime\", \"homedoesnotexistatbuildtime\"]\n+ readProcess' \"find\" [\"/homedoesnotexistatbuildtime\", \"-type\", \"f\"] \"\" >>= appendFile \"debian/ghcjs.install\" . unlines . map (\\ s -> s ++ \" \" ++ takeDirectory s) . lines\n+ postBuild simpleUserHooks a b c lbi\n+rawSystem' cmd args = hPutStrLn stderr (\"> \" ++ showCommandForUser cmd args) >> rawSystem cmd args\n+readProcess' cmd args inp = hPutStrLn stderr (\"> \" ++ showCommandForUser cmd args) >> readProcess cmd args inp\n+ghcjsPostCopy _ _ _ lbi = hcProvides (buildDir lbi)\n \n+autoboot lbi = rawSystem' (buildDir lbi \"ghcjs-boot/ghcjs-boot\") [\"--auto\"] -- fixme make sure that the one from the current install is being run\n \n showHooks :: UserHooks -> UserHooks\n showHooks hooks =\ndiff -ru old/src-bin/Boot.hs new/src-bin/Boot.hs\n--- old/src-bin/Boot.hs\t2014-06-21 13:22:11.070766243 -0700\n+++ new/src-bin/Boot.hs\t2014-06-21 13:21:02.730764629 -0700\n@@ -15,6 +15,7 @@\n import Control.Monad\n import Options.Applicative\n import qualified Control.Exception as Ex\n+import System.Environment (setEnv)\n import System.Exit (exitSuccess, exitFailure)\n import Filesystem.Path hiding ((<.>), (), null)\n \n@@ -30,6 +31,7 @@\n default (Text)\n \n main = do\n+ setEnv \"HOME\" \"/homedoesnotexistatbuildtime\"\n settings <- adjustDefaultSettings <$> execParser optParser'\n when (showVersion settings) (printVersion >> exitSuccess)\n r <- (shelly $ actions settings `catchany_sh` (return . Just))\n@@ -437,6 +439,7 @@\n incNative = lib \"include_native\"\n rtsLib = lib \"rts-1.0\"\n rtsConf <- readfile (Paths.libdir \"package.conf.d\" \"builtin_rts.conf\")\n+ mkdir_p (fromString dest)\n writefile (dest \"builtin_rts.conf\") $\n fixRtsConf (toTextIgnore inc) (toTextIgnore rtsLib) rtsConf\n ghcjs_pkg' [\"recache\", \"--global\"]\n") "--- old/src/Compiler/Info.hs\t2014-06-19 10:47:09.715550937 -0700\n+++ new/src/Compiler/Info.hs\t2014-06-19 11:31:23.975625075 -0700\n@@ -31,7 +31,7 @@\n [_$_]\n getGlobalPackageBase :: IO FilePath\n getGlobalPackageBase = do\n- appdir <- getAppUserDataDirectory \"ghcjs\"\n+ appdir <- return \"/homedoesnotexistatbuildtime/.ghcjs\" -- getAppUserDataDirectory \"ghcjs\"\n return (appdir subdir)\n where\n targetARCH = arch\ndiff -ru old/src-bin/Boot.hs new/src-bin/Boot.hs\n") (with /proc mounted) -- SeeReason Autobuilder Sun, 22 Jun 2014 16:44:31 -0700 ghcjs (0.1.0) unstable; urgency=low * Debianization generated by cabal-debian -- Luite Stegeman Sun, 22 Jun 2014 16:43:58 -0700