Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-libraries
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
3
Issues
3
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-libraries
Commits
f787749f
Commit
f787749f
authored
Aug 15, 2018
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
use case instead of u_isNothing and fromJust (u_isNothing will probably be renamed or removed)
parent
3dbd4d52
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
Libraries/TCPIP/ObjectIO/StdEventTCP.icl
Libraries/TCPIP/ObjectIO/StdEventTCP.icl
+5
-4
No files found.
Libraries/TCPIP/ObjectIO/StdEventTCP.icl
View file @
f787749f
...
...
@@ -82,10 +82,11 @@ instance Receivers TCP_ListenerReceiver where
where
handleConnectRequest
f
(
IE_CONNECTREQUEST
,
endpointRef
,_)
(
ls
,
ps
=:{
io
})
#
(_,
mbHostDuplexChan
,_,
io
)
=
receive_MT
(
Just
0
)
(
pack_tcplistener
endpointRef
)
io
(
isNothin`
,
mbHostDuplexChan
)
=
u_isNothing
mbHostDuplexChan
|
isNothin`
=
(
ls
,{
ps
&
io
=
io
})
=
f
(
Received
(
fromJust
mbHostDuplexChan
))
(
ls
,{
ps
&
io
=
io
})
=
case
mbHostDuplexChan
of
Nothing
->
(
ls
,
{
ps
&
io
=
io
})
Just
hostDuplexChan
->
f
(
Received
hostDuplexChan
)
(
ls
,
{
ps
&
io
=
io
})
getReceiverType
_
=
"TCP_ListenerReceiver"
...
...
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