tweak to Configure for windows. removed DefaultSetup since it breaks …

…windows cabal 1.0 installations.
haskell · Jul 18, 2005 · 21dc557 · 21dc557
1 parent 1917116
commit 21dc557
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 33 deletions.
diff --git a/Cabal.cabal b/Cabal.cabal
@@ -49,35 +49,3 @@ Other-Modules:
         Distribution.Compat.Exception,
         Distribution.Compat.RawSystem
 Extensions: CPP
-
-executable: cabal-setup
-main-is: DefaultSetup.lhs
-hs-source-dir: src
-Other-Modules:
-        Distribution.Compat.ReadP,
-        Distribution.Extension,
-        Distribution.InstalledPackageInfo,
-        Distribution.License,
-        Distribution.Make,
-        Distribution.Package,
-        Distribution.PackageDescription,
-        Distribution.ParseUtils,
-        Distribution.PreProcess,
-        Distribution.PreProcess.Unlit,
-        Distribution.Setup,
-        Distribution.Simple,
-        Distribution.Simple.Build,
-        Distribution.Simple.Configure,
-        Distribution.Simple.GHCPackageConfig,
-        Distribution.Simple.Install,
-        Distribution.Simple.LocalBuildInfo,
-        Distribution.Simple.Register,
-        Distribution.Simple.SrcDist,
-        Distribution.Simple.Utils,
-        Distribution.Compat.FilePath,
-        Distribution.Version,
-        Distribution.GetOpt,
-        Distribution.Compat.Directory,
-        Distribution.Compat.Exception,
-        Distribution.Compat.RawSystem
-Extensions: CPP
diff --git a/src/Distribution/Simple/Configure.hs b/src/Distribution/Simple/Configure.hs
@@ -253,7 +253,7 @@ system_default_prefix =
     csidl_PROGRAM_FILES = 0x0026
     long_path_size      = 1024
 
-foreign import stdcall unsafe "SHGetFolderPath" 
+foreign import stdcall unsafe "SHGetFolderPathW" 
             c_SHGetFolderPath :: Ptr () 
                               -> CInt 
                               -> Ptr ()