IC
Size: a a a
IC
IC
AS
Lr
Lr
Lr
IC
IC
🔘
L
O
O
O
E
O
E
E
O
data Task t = ... deriving Monad
getToken :: Task CancellationToken
...
let task = do
a <- task1
b <- task2
token <- getToken
if isCancellationRequested token then ...
in runTask task myToken