Address port opening problem on OS X.

Open port with O_NONBLOCK, then immediately configure back to blocking mode. Without these settings, the serial port is unusable in Mac OS X (tested on version 10.7).
jputcu · Aug 28, 2014 · ba803a5 · ba803a5
1 parent 7ac8073
commit ba803a5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/System/Hardware/Serialport/Posix.hsc b/System/Hardware/Serialport/Posix.hsc
@@ -73,7 +73,9 @@ openSerial :: FilePath            -- ^ Serial port, such as @\/dev\/ttyS0@ or @\
            -> SerialPortSettings
            -> IO SerialPort
 openSerial dev settings = do
-  fd' <- openFd dev ReadWrite Nothing defaultFileFlags { noctty = True }
+  -- fd' <- openFd dev ReadWrite Nothing defaultFileFlags { noctty = True }
+  fd' <- openFd dev ReadWrite Nothing defaultFileFlags { noctty = True, nonBlock = True }
+  setFdOption fd' NonBlockingRead False
   let serial_port = SerialPort fd' defaultSerialSettings
   return =<< setSerialSettings serial_port settings