Commit 91f6afd9 authored by judah's avatar judah Committed by GitHub
Browse files

Merge pull request #58 from bgamari/master

Use 0xffffffff in place of -1 to MessageBeep
parents 5ec0c46c fd5116c8
......@@ -230,7 +230,8 @@ writeConsole h str = writeConsole' >> writeConsole h ys
foreign import WINDOWS_CCONV "windows.h MessageBeep" c_messageBeep :: UINT -> IO Bool
messageBeep :: IO ()
messageBeep = c_messageBeep (-1) >> return ()-- intentionally ignore failures.
messageBeep = c_messageBeep simpleBeep >> return ()-- intentionally ignore failures.
where simpleBeep = 0xffffffff
----------
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment