From 5db88aa16bdda504f4bc00fadcd2e27d55c2f63e Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Sat, 30 Jan 2016 16:58:31 +0100 Subject: Change `drainOutput`'s `tcdrain(3)` into a `safe` FFI call Since the primary purpose of `tcdrain(3)` is to block it makes much more sense to use a `safe` FFI import. --- System/Posix/Terminal/Common.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'System') diff --git a/System/Posix/Terminal/Common.hsc b/System/Posix/Terminal/Common.hsc index 4825b10..68ce321 100644 --- a/System/Posix/Terminal/Common.hsc +++ b/System/Posix/Terminal/Common.hsc @@ -421,7 +421,7 @@ drainOutput :: Fd -> IO () #if HAVE_TCDRAIN drainOutput (Fd fd) = throwErrnoIfMinus1_ "drainOutput" (c_tcdrain fd) -foreign import capi unsafe "termios.h tcdrain" +foreign import capi safe "termios.h tcdrain" c_tcdrain :: CInt -> IO CInt #else {-# WARNING drainOutput -- cgit v1.2.3