Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
Mart Lubbers
CleanSerial
Commits
be06e488
Commit
be06e488
authored
Jul 02, 2017
by
Mart Lubbers
1
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
update
parent
948f49f1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
0 deletions
+2
-0
iTasksTTY.icl
iTasksTTY.icl
+2
-0
No files found.
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
Mart Lubbers
@mlubbers
mentioned in commit
52e2fb4d
·
Jul 02, 2017
mentioned in commit
52e2fb4d
mentioned in commit 52e2fb4d8d57e494fb6c5644fe74b2401f98d171
Toggle commit list
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment