Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
cea9d37c
Verified
Commit
cea9d37c
authored
Jul 31, 2019
by
Camil Staps
Browse files
Remove ignored strictness annotations in TCPChannels
parent
5b4f256a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Libraries/TCPIP/TCPChannels.dcl
View file @
cea9d37c
...
...
@@ -93,8 +93,8 @@ tcpPossible :: !*env
// multiplexing
// ********************************************************************************
selectChannel_MT
::
!(
Maybe
Timeout
)
!*
r_channels
!*
s_channels
!*
env
->
(![(
!
Int
,
!
SelectResult
)],!*
r_channels
,!*
s_channels
,!*
env
)
selectChannel_MT
::
!(
Maybe
Timeout
)
!*
r_channels
!*
s_channels
!*
env
->
(![(
Int
,
SelectResult
)],!*
r_channels
,!*
s_channels
,!*
env
)
|
SelectReceive
r_channels
&
SelectSend
s_channels
&
ChannelEnv
env
/* selectChannel_MT mbTimeout r_channels s_channels world
determines the first channel on which "something happens".
...
...
Libraries/TCPIP/TCPChannels.icl
View file @
cea9d37c
...
...
@@ -500,7 +500,7 @@ instance toString SelectResult
toString
SR_Disconnected
=
"SR_Disconnected"
selectChannel_MT
::
!(
Maybe
Timeout
)
!*
r_channels
!*
s_channels
!*
env
->
(![(
!
Int
,
!
SelectResult
)],
!*
r_channels
,
!*
s_channels
,
!*
env
)
->
(![(
Int
,
SelectResult
)],
!*
r_channels
,
!*
s_channels
,
!*
env
)
|
SelectReceive
r_channels
&
SelectSend
s_channels
&
ChannelEnv
env
selectChannel_MT
mbTimeout
r_channels
s_channels
env
|
isJust
mbTimeout
&&
fromJust
mbTimeout
<
0
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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