From 7f18d1e12eef275ba6573311e6a003bfcf8e635b Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Wed, 16 Jan 2008 17:22:04 +0000
Subject: [PATCH] Comment out an unused binding
---
Distribution/Simple/InstallDirs.hs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/Distribution/Simple/InstallDirs.hs b/Distribution/Simple/InstallDirs.hs
index f3027636a0..cba25faa1a 100644
--- a/Distribution/Simple/InstallDirs.hs
+++ b/Distribution/Simple/InstallDirs.hs
@@ -483,9 +483,10 @@ shGetFolderPath n =
long_path_size = 1024
# endif
-csidl_PROGRAM_FILES, csidl_PROGRAM_FILES_COMMON :: CInt
+csidl_PROGRAM_FILES :: CInt
csidl_PROGRAM_FILES = 0x0026
-csidl_PROGRAM_FILES_COMMON = 0x002b
+-- csidl_PROGRAM_FILES_COMMON :: CInt
+-- csidl_PROGRAM_FILES_COMMON = 0x002b
foreign import stdcall unsafe "shlobj.h SHGetFolderPathA"
c_SHGetFolderPath :: Ptr ()
--
GitLab