VY
Size: a a a
VY
p
var on = function( eventName ){
return function( target ){
return function( cb ){
return function(){
var handler = function( val ){
return cb( val )()
}
target.on( eventName, handler )
return function(){
console.log( "Detached" )
}
}
}
}
}
exports.onSomething = on( "something" )
——foreign import onSomething ::——
Target ->
( SomeData -> Effect Unit ) ->
Effect ( Effect Unit )
H.subscribe $ HES.eventSource'——
( onSomething target )
( Just <<< H.request <<< HandleSomething )
...——
HandleSomething someData next -> pure $ next H.Done
...
VY
runFnN или runEffectFnN в нашем коде для ф-ции onSomething?mkEffectFnN понадобится)p
p
p
VY
p
return function() {...VY
p
AK
VY
defer :: (Unit -> l) -> lp
pure 10AK
subUnsub :: Effect Unit
subUnsub = do
cancel <- onSomething ...
. . .
_ <- cancel -- здесь вывод "Detached" в консоль
pure unit
p
subUnsub :: Effect Unit
subUnsub = do
cancel <- onSomething ...
. . .
_ <- cancel -- здесь вывод "Detached" в консоль
pure unit
p
AK