Commit 12d6a55e authored by John van Groningen's avatar John van Groningen

use case instead of u_isNothing and fromJust (u_isNothing will probably be renamed or removed)

parent f787749f
......@@ -115,10 +115,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"
......
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