Commit be06e488 authored by Mart Lubbers's avatar Mart Lubbers

update

parent 948f49f1
......@@ -92,4 +92,6 @@ serialDeviceBackgroundTask enc dec rw iworld
(_, tty) = appFst (pure o dec) $ TTYreadline tty
# iworld = {iworld & resources=Just (TTYd tty bgid)}
| isEmpty ml && isEmpty s = (Ok (), iworld)
# (merr, iworld) = notify rw iworld
| isError merr = (Error $ fromError merr, iworld)
= write (r++ml,[],False) rw iworld
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