We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent c03e702 commit 302a63bCopy full SHA for 302a63b
System/Console/Haskeline/Backend/Posix.hsc
@@ -1,3 +1,5 @@
1
+{-# LANGUAGE CApiFFI #-}
2
+
3
module System.Console.Haskeline.Backend.Posix (
4
withPosixGetEvent,
5
posixLayouts,
@@ -61,7 +63,7 @@ ehOut = eH . hOut
61
63
-------------------
62
64
-- Window size
65
-foreign import ccall ioctl :: FD -> CULong -> Ptr a -> IO CInt
66
+foreign import capi "sys/ioctl.h ioctl" ioctl :: FD -> CULong -> Ptr a -> IO CInt
67
68
posixLayouts :: Handles -> [IO (Maybe Layout)]
69
posixLayouts h = [ioctlLayout $ ehOut h, envLayout]
0 commit comments