mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-11-05 04:07:44 +00:00
10 lines
356 B
Diff
10 lines
356 B
Diff
diff --git a/Basement/Terminal/Size.hsc b/Basement/Terminal/Size.hsc
|
|
--- a/Basement/Terminal/Size.hsc
|
|
+++ b/Basement/Terminal/Size.hsc
|
|
@@ -123,4 +123,4 @@
|
|
invalidHandleValue :: IntPtr
|
|
-invalidHandleValue = #{const INVALID_HANDLE_VALUE}
|
|
+invalidHandleValue = Prelude.fromIntegral (#{const (INT_PTR)INVALID_HANDLE_VALUE} :: Int)
|
|
|
|
stdOutputHandle :: CULong
|