apply-refact-0.1.0.0: tests/examples/Monad9.hs

{-# LANGUAGE RecursiveDo #-}
no = mdo hook <- mkTrigger pat (act >> rmHook hook) ; return hook