Drop use of NegativeLiterals (fixes #118) (#119)

haskell · Nov 28, 2018 · 60cbcea · 60cbcea · Mistuke · Nov 28, 2018
1 parent ee48f4a
commit 60cbcea
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/Graphics/Win32/Window.hsc b/Graphics/Win32/Window.hsc
@@ -1,5 +1,4 @@
 {-# LANGUAGE CApiFFI #-}
-{-# LANGUAGE NegativeLiterals #-}
 {-# LANGUAGE Trustworthy #-}
 -----------------------------------------------------------------------------
 -- |
@@ -682,7 +681,7 @@ allocaMessage = allocaBytes #{size MSG}
 
 getMessage :: LPMSG -> Maybe HWND -> IO Bool
 getMessage msg mb_wnd = do
-  res <- failIf (== -1) "GetMessage" $
+  res <- failIf (== maxBound) "GetMessage" $
     c_GetMessage msg (maybePtr mb_wnd) 0 0
   return (res /= 0)
 foreign import WINDOWS_CCONV "windows.h GetMessageW"
@@ -694,7 +693,7 @@ foreign import WINDOWS_CCONV "windows.h GetMessageW"
 
 peekMessage :: LPMSG -> Maybe HWND -> UINT -> UINT -> UINT -> IO ()
 peekMessage msg mb_wnd filterMin filterMax remove = do
-  failIf_ (== -1) "PeekMessage" $
+  failIf_ (== maxBound) "PeekMessage" $
     c_PeekMessage msg (maybePtr mb_wnd) filterMin filterMax remove
 foreign import WINDOWS_CCONV "windows.h PeekMessageW"
   c_PeekMessage :: LPMSG -> HWND -> UINT -> UINT -> UINT -> IO LONG

diff --git a/Win32.cabal b/Win32.cabal
@@ -1,5 +1,5 @@
 name:		Win32
-version:	2.8.1.0
+version:	2.8.2.0
 license:	BSD3
 license-file:	LICENSE
 author:		Alastair Reid, shelarcy, Tamar Christina

diff --git a/changelog.md b/changelog.md
@@ -1,5 +1,9 @@
 # Changelog for [`Win32` package](http://hackage.haskell.org/package/Win32)
 
+## 2.8.2.0 *Dec 2018*
+
+* Drop use of NegativeLiterals (See #118)
+
 ## 2.8.1.0 *Nov 2018*
 
 * Fix broken links (See #116)