[cvs pull ijones@syntaxpolice.org**20050222015737 krasimir: {un}register.bat ross: small doc fixes, and {un}register.bat docs added verbosity to defaultUserHooks ] { hunk ./Distribution/Simple/Register.hs 57 +#if __GLASGOW_HASKELL__ +#if __GLASGOW_HASKELL__ < 603 +#include "config.h" +#else +#include "ghcconfig.h" +#endif +#endif + hunk ./Distribution/Simple/Register.hs 98 +#ifdef mingw32_TARGET_OS +regScriptLocation = "register.bat" +#else hunk ./Distribution/Simple/Register.hs 102 +#endif hunk ./Distribution/Simple/Register.hs 105 +#ifdef mingw32_TARGET_OS +unregScriptLocation = "unregister.bat" +#else hunk ./Distribution/Simple/Register.hs 109 +#endif hunk ./Distribution/Simple/Register.hs 154 - | ghc_63_plus = ["update", installedPkgConfigFile] + | ghc_63_plus = "update": +#ifndef mingw32_TARGET_OS + if genScript + then [] + else +#endif + [installedPkgConfigFile] hunk ./Distribution/Simple/Register.hs 162 +#ifndef mingw32_TARGET_OS hunk ./Distribution/Simple/Register.hs 165 - else ["--input-file="++installedPkgConfigFile] + else +#endif + ["--input-file="++installedPkgConfigFile] hunk ./Distribution/Simple/Register.hs 297 +#ifdef mingw32_TARGET_OS + writeFile scriptName ("@" ++ path ++ concatMap (' ':) args) +#else hunk ./Distribution/Simple/Register.hs 303 - putStrLn (path ++ concatMap (' ':) args) hunk ./Distribution/Simple/Register.hs 305 +#endif hunk ./Distribution/Simple/Register.hs 315 +#ifdef mingw32_TARGET_OS + writeFile scriptName ("@" ++ path ++ concatMap (' ':) args) +#else hunk ./Distribution/Simple/Register.hs 320 - ++ "' |" + ++ "' | " hunk ./Distribution/Simple/Register.hs 325 +#endif hunk ./Distribution/Simple.hs 424 - preBuild = readHook, - preClean = readHook, - preCopy = readHook, - preInst = readHook, - preSDist = readHook, - preReg = readHook, - preUnreg = readHook + preBuild = readHook id, + preClean = readHook id, + preCopy = readHook snd, + preInst = readHook snd, + preSDist = readHook id, + preReg = readHook thd3, + preUnreg = readHook thd3 hunk ./Distribution/Simple.hs 438 - rawSystem "sh" + rawSystemVerbose (configVerbose flags) "sh" hunk ./Distribution/Simple.hs 445 - readHook :: Args -> a -> IO HookedBuildInfo - readHook a _ = do + readHook :: (a -> Int) -> Args -> a -> IO HookedBuildInfo + readHook verbose a flags = do hunk ./Distribution/Simple.hs 451 - Just infoFile -> readHookedBuildInfo infoFile + Just infoFile -> do + when (verbose flags > 0) $ + putStrLn $ "Reading parameters from " ++ infoFile + readHookedBuildInfo infoFile + + thd3 (_,_,z) = z hunk ./TODO 4 +* Install libraries in $libdir/ghc-$ghc_version/ rather than $libdir. + hunk ./doc/Cabal.xml 12 -
stanzasseparated by blank lines. + +
. There must be exactly + one such file in the directory, and the first part of the name is + immaterial, but it is conventional to use the package name..cabal