bump up Win32 dependency
commitc12dcf782db4793a0b2921d3d1fcbb96b4022d0d
authorAgentM <agentm@themactionfaction.com>
dateThu 9 Aug 2018, 23:00 (8 years ago)
parentd34c909
project-m36.cabal+1−1
@@ -162,7 +162,7 @@ Library
162162 ProjectM36.Arbitrary
163163 GHC-Options: -Wall -rdynamic
164164 if os(windows)
165− Build-Depends: Win32 >= 2.3
165+ Build-Depends: Win32 >= 2.5.4.1
166166 Other-Modules: ProjectM36.Win32Handle
167167 else
168168 C-sources: cbits/DirectoryFsync.c, cbits/darwin_statfs.c
src/lib/ProjectM36/Win32Handle.hs+3−1
@@ -53,5 +53,7 @@ withHandleToHANDLE haskell_handle action =
5353 -- Do what the user originally wanted
5454 action windows_handle
5555
56+#if !MIN_VERSION_win32(2,5,1)
5657withStablePtr :: a -> (StablePtr a -> IO b) -> IO b
57−withStablePtr value = bracket (newStablePtr value) freeStablePtr
58+withStablePtr value = bracket (newStablePtr value) freeStablePtr
59+#endif