[commit: Cabal] master: Fix building on Windows (077db05)

[Ian Lynagh]

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 <duncan at haskell.org>
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"