Commit fd5116c8 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

Use 0xffffffff in place of -1 to MessageBeep

MessageBeep expects an unsigned argument, leading to a
literal-out-of-range error previously.
parent 39168d2f
......@@ -226,7 +226,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