git.iko.soy/project-m36
on master help sign in
fix Win32Handle macro logic
a0e73e0AgentM
src/lib/ProjectM36/Win32Handle.hs+2−1
compare with master
unifiedsplit
@@ -53,7 +53,8 @@ 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
57withStablePtr :: a -> (StablePtr a -> IO b) -> IO b
58withStablePtr :: a -> (StablePtr a -> IO b) -> IO b
58withStablePtr value = bracket (newStablePtr value) freeStablePtr
59withStablePtr value = bracket (newStablePtr value) freeStablePtr
59#endif
60#endif