git.iko.soy/project-m36
on master help sign in
fix Win32 version macro
1ee4007AgentM
src/lib/ProjectM36/Win32Handle.hs+1−1
compare with master
unifiedsplit
@@ -53,7 +53,7 @@ withHandleToHANDLE haskell_handle action =
53 -- Do what the user originally wanted
53 -- Do what the user originally wanted
54 action windows_handle
54 action windows_handle
55
55
56−#if MIN_VERSION_win32(2,5,1)
56+#if MIN_VERSION_Win32(2,5,1)
57#else
57#else
58withStablePtr :: a -> (StablePtr a -> IO b) -> IO b
58withStablePtr :: a -> (StablePtr a -> IO b) -> IO b
59withStablePtr value = bracket (newStablePtr value) freeStablePtr
59withStablePtr value = bracket (newStablePtr value) freeStablePtr