>>|. delay (lit 500)
>>|. writeD d2 false
>>|. delay (lit 500)
- )}\end{lstClean}
+ )
+}\end{lstClean}
\end{subfigure}
\end{figure}
class channelSync a :: a (sds () Channels Channels) -> Task () | RWShared sds
withDevice :: (a (MTDevice -> Task b) -> Task b) | iTask b & channelSync, iTask a
-
\end{lstClean}
\section{Lifting tasks}