We are planning to upgrade GitLab to the latest version this Friday morning. Expect some downtime!

Commit cea9d37c authored by Camil Staps's avatar Camil Staps 🍃

Remove ignored strictness annotations in TCPChannels

parent 5b4f256a
...@@ -93,8 +93,8 @@ tcpPossible :: !*env ...@@ -93,8 +93,8 @@ tcpPossible :: !*env
// multiplexing // multiplexing
// ******************************************************************************** // ********************************************************************************
selectChannel_MT:: !(Maybe Timeout) !*r_channels !*s_channels !*env 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 | SelectReceive r_channels & SelectSend s_channels & ChannelEnv env
/* selectChannel_MT mbTimeout r_channels s_channels world /* selectChannel_MT mbTimeout r_channels s_channels world
determines the first channel on which "something happens". determines the first channel on which "something happens".
......
...@@ -500,7 +500,7 @@ instance toString SelectResult ...@@ -500,7 +500,7 @@ instance toString SelectResult
toString SR_Disconnected = "SR_Disconnected" toString SR_Disconnected = "SR_Disconnected"
selectChannel_MT :: !(Maybe Timeout) !*r_channels !*s_channels !*env 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 | SelectReceive r_channels & SelectSend s_channels & ChannelEnv env
selectChannel_MT mbTimeout r_channels s_channels env selectChannel_MT mbTimeout r_channels s_channels env
| isJust mbTimeout && fromJust mbTimeout<0 | isJust mbTimeout && fromJust mbTimeout<0
......
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