Commit fa308984 authored by Mart Lubbers's avatar Mart Lubbers
Browse files

make up to date with the latest greatest iTask master

parent bccc6e9d
Pipeline #56899 passed with stages
in 3 minutes and 41 seconds
......@@ -127,12 +127,12 @@ connectionsHandlers =
, onData = onData
, onShareChange = onShareChange
, onTick = \_ _ w. (Ok (), ?None, [], False, w)
, onDisconnect = \_ _ w. (Ok (), ?None, w)
, onDisconnect = \_ _ _ w. (Ok (), ?None, w)
, onDestroy = \_ w. (Ok (), [], w)
}
onData :: !String () MQTTClient *IWorld -> *(MaybeErrorString (), ?MQTTClient, [String], Bool, *IWorld)
onData _ _ client iworld
onData :: !ConnectionId !String () MQTTClient *IWorld -> *(MaybeErrorString (), ?MQTTClient, [String], Bool, *IWorld)
onData _ _ _ client iworld
# (ret, iworld) = processCall client.context iworld
| ret == 0 = let (c,w) = receive client iworld in (Ok (), ?Just c, [], False, w)
| otherwise = (Error $ "Mqtt process failed: " +++ errorCodeToString ret, ?None, [], False, iworld)
......
Supports Markdown
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