fixing strict

haskell · May 30, 2023 · 9d29533 · 9d29533
1 parent c3fbba7
commit 9d29533
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Network/Socket/Options.hsc b/Network/Socket/Options.hsc
@@ -488,16 +488,16 @@ newtype SocketTimeout = SocketTimeout Word32 deriving (Eq, Ord, Show)
 
 #if defined(mingw32_HOST_OS)
 instance Storable SocketTimeout where
-    sizeOf (SocketTimeout to) = sizeOf to -- DWORD as milliseconds
-    alignment _ = 0
+    sizeOf ~(SocketTimeout to) = sizeOf to -- DWORD as milliseconds
+    alignment ~_ = 0
     peek ptr    = do
         to <- peek (castPtr ptr)
         return $ SocketTimeout (to * 1000)
     poke ptr (SocketTimeout to) = poke (castPtr ptr) (to `div` 1000)
 #else
 instance Storable SocketTimeout where
-    sizeOf _    = (#size struct timeval)
-    alignment _ = (#const offsetof(struct {char x__; struct timeval (y__); }, y__))
+    sizeOf    ~_ = (#size struct timeval)
+    alignment ~_ = (#const offsetof(struct {char x__; struct timeval (y__); }, y__))
     peek ptr    = do
             sec  <- (#peek struct timeval, tv_sec)  ptr
             usec <- (#peek struct timeval, tv_usec) ptr