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 ...@@ -115,10 +115,11 @@ instance Receivers TCP_ListenerReceiver where
where where
handleConnectRequest f (IE_CONNECTREQUEST,endpointRef,_) (ls,ps=:{io}) handleConnectRequest f (IE_CONNECTREQUEST,endpointRef,_) (ls,ps=:{io})
# (_, mbHostDuplexChan,_,io) = receive_MT (Just 0) (pack_tcplistener endpointRef) io # (_, mbHostDuplexChan,_,io) = receive_MT (Just 0) (pack_tcplistener endpointRef) io
(isNothin`,mbHostDuplexChan) = u_isNothing mbHostDuplexChan = case mbHostDuplexChan of
| isNothin` Nothing
= (ls,{ ps & io=io}) -> (ls, {ps & io=io})
= f (Received (fromJust mbHostDuplexChan)) (ls,{ ps & io=io}) Just hostDuplexChan
-> f (Received hostDuplexChan) (ls, {ps & io=io})
getReceiverType _ getReceiverType _
= "TCP_ListenerReceiver" = "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