Skip to content

GitLab

Commit be06e488 authored by Mart Lubbers's avatar Mart Lubbers
1 Browse files
Options

update

parent 948f49f1
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
iTasksTTY.icl
View file @ be06e488
......@@ -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