(Just(dyn,_))=Error(exception("Dynamic not of the correct service type, got: "+++toString(typeCodeOfDynamicdyn)+++", required: "+++toString(typeCodeOfDynamic(dynamicservice))))
Just(dyn,_)
#message="Dynamic not of the correct service type, got: "
+++toString(typeCodeOfDynamicdyn)
+++", required: "
+++toString(typeCodeOfDynamic(dynamicservice))
=Error(exceptionmessage)
Nothing=OkNothing
getValueTCPconnectionIdconnectionMap
|not(trace_tn("Get value from TCP service for connection "+++toStringconnectionId))=undef
=case'DM'.getconnectionIdconnectionMapof
(Just(value::([r^],[String]),_))
|not(trace_tn"Got some value..")=undef
=casevalueof
([],_)=trace_n"No read value yet"(OkNothing)
([r:rs],_)=trace_n"Got value!!"Ok(Justr)
(Just(dyn,_))=Error(exception("Dynamic not of the correct service type, got: "+++toString(typeCodeOfDynamicdyn)+++", required: "+++toString(typeCodeOfDynamic(dynamicservice))))
Just(value::([r^],[String]),_)=casevalueof
([],_)=OkNothing
([r:rs],_)=Ok(Justr)
Just(dyn,_)
#message="Dynamic not of the correct service type, got: "
#iworld=if(instanceNo>0)(queueRefresh[(taskId,"Exception for "<+++instanceNo)]iworld)iworld
#ioStates='DM'.puttaskId(IOException("Missing IO task state for task "+++toStringtaskId+++". We have: "+++(concat$map(\k.toStringk+++",")$'DM'.keystaskStates)+++". Required: "+++toStringconnectionId))ioStates
#ioStates='DM'.puttaskId(IOException"Missing IO task state for task ")ioStates