fix Win32Handle macro logic
commita0e73e092866e34ee95b78950fe9e2bb1539bb8b
authorAgentM <agentm@themactionfaction.com>
dateThu 9 Aug 2018, 23:23 (8 years ago)
parentc12dcf7
src/lib/ProjectM36/Win32Handle.hs+2−1
@@ -53,7 +53,8 @@ withHandleToHANDLE haskell_handle action =
5353 -- Do what the user originally wanted
5454 action windows_handle
5555
56−#if !MIN_VERSION_win32(2,5,1)
56+#if MIN_VERSION_win32(2,5,1)
57+#else
5758withStablePtr :: a -> (StablePtr a -> IO b) -> IO b
5859withStablePtr value = bracket (newStablePtr value) freeStablePtr
5960#endif