Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch : master
http://hackage.haskell.org/trac/ghc/changeset/077db05c20b08833edeb4bcfc6ad45d286f1b120 >--------------------------------------------------------------- commit 077db05c20b08833edeb4bcfc6ad45d286f1b120 Author: Duncan Coutts <[email protected]> Date: Tue Aug 12 21:29:41 2008 +0000 Fix building on Windows I hateses #ifdefs >--------------------------------------------------------------- .../Distribution/Client/InstallSymlink.hs | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) diff --git a/cabal-install/Distribution/Client/InstallSymlink.hs b/cabal-install/Distribution/Client/InstallSymlink.hs index 7239930..c820c79 100644 --- a/cabal-install/Distribution/Client/InstallSymlink.hs +++ b/cabal-install/Distribution/Client/InstallSymlink.hs @@ -23,14 +23,16 @@ module Distribution.Client.InstallSymlink ( #if mingw32_HOST_OS || mingw32_TARGET_OS +import Distribution.Package (PackageIdentifier) import Distribution.Client.InstallPlan (InstallPlan) import Distribution.Client.Setup (InstallFlags) import Distribution.Simple.Setup (ConfigFlags) symlinkBinaries :: ConfigFlags -> InstallFlags - -> InstallPlan -> IO () -symlinkBinaries _ _ = symlinkBinary undefined undefined undefined undefined + -> InstallPlan + -> IO [(PackageIdentifier, String, FilePath)] +symlinkBinaries _ _ _ = return [] symlinkBinary :: FilePath -> FilePath -> String -> String -> IO Bool symlinkBinary _ _ _ _ = fail "Symlinking feature not available on Windows" _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
