|
Lines 19-25
Link Here
|
| 19 |
import Foreign.C |
19 |
import Foreign.C |
| 20 |
import System.IO |
20 |
import System.IO |
| 21 |
import Control.Monad(when) |
21 |
import Control.Monad(when) |
|
|
22 |
#if __GLASGOW_HASKELL__ < 610 |
| 22 |
import Control.Exception(throwDyn) |
23 |
import Control.Exception(throwDyn) |
|
|
24 |
#else |
| 25 |
import Control.OldException(throwDyn) |
| 26 |
#endif |
| 23 |
import Control.Concurrent.MVar |
27 |
import Control.Concurrent.MVar |
| 24 |
|
28 |
|
| 25 |
#include <fcntl.h> |
29 |
#include <fcntl.h> |
