Skip to content
This repository has been archived by the owner on Sep 20, 2023. It is now read-only.

Use CApiFFI for variadic fcntl #420

Merged
merged 4 commits into from
Nov 4, 2017
Merged

Use CApiFFI for variadic fcntl #420

Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
2e4240f
No redefinition of `fcntl` with different arity.
angerman Oct 19, 2017
f23fbd3
Update Posix.hsc
angerman Oct 19, 2017
f915830
Update Posix.hsc
angerman Oct 19, 2017
deb7bfb
Update Posix.hsc
angerman Oct 19, 2017
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
5 changes: 3 additions & 2 deletions Foundation/System/Bindings/Posix.hsc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -11,6 +11,7 @@
-- Functions defined by the POSIX standards
--
-----------------------------------------------------------------------------
{-# LANGUAGE CApiFFI #-}
{-# OPTIONS_HADDOCK hide #-}
module Foundation.System.Bindings.Posix
where
Expand Down Expand Up @@ -348,9 +349,9 @@ foreign import ccall unsafe "openat"
foreign import ccall unsafe "close"
sysPosixClose :: CFd -> IO CInt

foreign import ccall unsafe "fcntl"
foreign import capi "fcntl.h fcntl"
sysPosixFnctlNoArg :: CFd -> CInt -> IO CInt
foreign import ccall unsafe "fcntl"
foreign import capi "fcntl.h fcntl"
sysPosixFnctlPtr :: CFd -> CInt -> Ptr a -> IO CInt

foreign import ccall unsafe "ftruncate"
Expand Down