/src/Flock.hsc

http://github.com/Eelis/geordi · Unknown · 16 lines · 11 code · 5 blank · 0 comment · 0 complexity · 336a034f76c6af85ee67663637f0b9ac MD5 · raw file 

    

  1. {-# LANGUAGE UnicodeSyntax, ForeignFunctionInterface #-}
    2. 

  2. module Flock (exclusive) where
    3. 

  3. 

  4. import System.Posix.Types
    5. 

  5. import Foreign.C
    6. 

  6. import Prelude (IO, ($))
    7. 

  7. 

  8. #include <sys/file.h>
    9. 

  9. 

  10. foreign import ccall unsafe "flock" c_flock :: CInt ? CInt ? IO CInt
    11. 

  11. 

  12. flock :: CInt ? CInt ? IO ()
    13. 

  13. flock fd op = throwErrnoIfMinus1_ "flock" $ c_flock fd op
    14. 

  14. 

  15. exclusive :: Fd ? IO ()
    16. 

  16. exclusive (Fd fd) = flock fd (#const LOCK_EX)
    17.