Commit ef641339 authored by Mart Lubbers's avatar Mart Lubbers

optimize share notification

parent bfa6a41e
......@@ -84,7 +84,9 @@ serialDeviceBackgroundTask enc dec rw iworld
# iworld = {iworld & resources=Just (TTYd tty bgid)}
= case write (r++ml,[],False) rw iworld of
(Error e, iworld) = (Error $ exception "share couldn't be written", iworld)
(Ok _, iworld) = case notify rw iworld of
(Ok _, iworld)
| isEmpty r = (Ok (), iworld)
= case notify rw iworld of
(Error e, iworld) = (Error $ exception "share couldn't be notified", iworld)
(Ok _, iworld) = (Ok (), iworld)
where
......
......@@ -106,6 +106,7 @@ void ttyopen(CleanString fn, int baudrate, int bytesize, int parity,
debug("ttyopen");
struct termios tio;
char *cs_fn = cleanStringToCString(fn);
debug(cs_fn);
*fd = open(cs_fn, O_RDWR | O_NOCTTY | O_NONBLOCK);
*status = 0;
fcntl(*fd, F_SETFL, 0);
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment