Commit 27239bb5 authored by Mart Lubbers's avatar Mart Lubbers

small fix

parent 51fb89d3
......@@ -77,6 +77,7 @@ serialDeviceBackgroundTask enc dec rw iworld
(Error e, iworld) = (Error $ exception "share couldn't be read", iworld)
//We need to stop
(Ok (_,_,True), iworld) = (Error $ exception "I have to stop...", iworld)
(Ok (r,s,ss), iworld)
# (Just (TTYd tty bgid)) = iworld.resources
# tty = writet (map enc s) tty
......@@ -84,7 +85,7 @@ serialDeviceBackgroundTask enc dec rw iworld
(False, tty) = ([], tty)
(_, tty) = appFst (pure o dec) $ TTYreadline tty
# iworld = {iworld & resources=Just (TTYd tty bgid)}
| isEmpty ml = (Ok (), iworld)
| isEmpty ml && isEmpty s = (Ok (), iworld)
= case write (r++ml,[],False) rw iworld of
(Error e, iworld) = (Error $ exception "share couldn't be written", iworld)
(Ok _, iworld) = (Ok (), 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