File tree Expand file tree Collapse file tree 2 files changed +6
-6
lines changed
Expand file tree Collapse file tree 2 files changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -277,13 +277,13 @@ foreign import ccall unsafe "_get_osfhandle"
277277
278278-- Originally authored by Max Bolingbroke in the ansi-terminal library
279279withHandleToHANDLE :: Handle -> (HANDLE -> IO a ) -> IO a
280- #if defined(__IO_MANAGER_WINIO__)
280+ ## if defined(__IO_MANAGER_WINIO__)
281281withHandleToHANDLE = withHandleToHANDLEPosix <!> withHandleToHANDLENative
282- #else
282+ ## else
283283withHandleToHANDLE = withHandleToHANDLEPosix
284- #endif
284+ ## endif
285285
286- #if defined(__IO_MANAGER_WINIO__)
286+ ## if defined(__IO_MANAGER_WINIO__)
287287withHandleToHANDLENative :: Handle -> (HANDLE -> IO a ) -> IO a
288288withHandleToHANDLENative haskell_handle action =
289289 -- Create a stable pointer to the Handle. This prevents the garbage collector
@@ -293,7 +293,7 @@ withHandleToHANDLENative haskell_handle action =
293293 windows_handle <- handleToHANDLE haskell_handle
294294 -- Do what the user originally wanted
295295 action windows_handle
296- #endif
296+ ## endif
297297
298298withHandleToHANDLEPosix :: Handle -> (HANDLE -> IO a ) -> IO a
299299withHandleToHANDLEPosix haskell_handle action =
Original file line number Diff line number Diff line change 11name : Win32
2- version : 2.10.1.0
2+ version : 2.10.1.1
33license : BSD3
44license-file : LICENSE
55author : Alastair Reid, shelarcy, Tamar Christina
You can’t perform that action at this time.
0 commit comments