Comment out an unused binding

haskell · Jan 16, 2008 · 7f18d1e · 7f18d1e
1 parent ecc6462
commit 7f18d1e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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 ()