diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-30 19:44:58 +0100 |
---|---|---|
committer | Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-30 19:44:58 +0100 |
commit | 731f7dddcbae3c4332beac742605dade2d4a80ad (patch) | |
tree | 0eac898007723182c50eb09af16f7e720610554e /System/Posix/Terminal/Common.hsc | |
parent | 03783d2758d2f35c01a8570da30f508c3b9e019b (diff) |
Add CTYPE annotations to ptr types used for FFI
This avoids incompatible-pointer warnings from the c-compiler when using
`CApiFFI`
Diffstat (limited to 'System/Posix/Terminal/Common.hsc')
-rw-r--r-- | System/Posix/Terminal/Common.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/System/Posix/Terminal/Common.hsc b/System/Posix/Terminal/Common.hsc index 68ce321..5d81ec5 100644 --- a/System/Posix/Terminal/Common.hsc +++ b/System/Posix/Terminal/Common.hsc @@ -77,6 +77,7 @@ import Foreign.Ptr ( Ptr, plusPtr ) import Foreign.Storable ( Storable(..) ) import System.IO.Unsafe ( unsafePerformIO ) import System.Posix.Types +import System.Posix.Internals ( CTermios ) #if !HAVE_TCDRAIN import System.IO.Error ( ioeSetLocation ) @@ -86,7 +87,6 @@ import GHC.IO.Exception ( unsupportedOperation ) -- ----------------------------------------------------------------------------- -- Terminal attributes -type CTermios = () newtype TerminalAttributes = TerminalAttributes (ForeignPtr CTermios) makeTerminalAttributes :: ForeignPtr CTermios -> TerminalAttributes |