Commit 227be89c authored by Mart Lubbers's avatar Mart Lubbers

Merge branch 'empty_output_channel_fix' into 'master'

Empty the output channel after sending

See merge request !2
parents 2c920646 37ca946b
......@@ -128,7 +128,9 @@ serialDeviceBackgroundTask dp enc dec accShare rw iworld
(Left err, newacc) = (Error (exception "Error while parsing"), iworld)
(Right msgs, newacc)
# (merr, iworld) = if (msgs =: [])
(Ok (), iworld)
if (s =: [])
(Ok (), iworld)
(write (r, [], False) rw iworld)
(write (r++msgs, [], False) rw iworld)
| isError merr = (liftError merr, iworld)
= write newacc accShare 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