on master help sign in
remove stop
cad6f19Harendra Kumar
src/Duct/AsyncT.hs−7
@@ -94,13 +94,6 @@ instance Monad m => Alternative (AsyncT m) where
94 RemoteNode -> return Nothing
94 RemoteNode -> return Nothing
95 _ -> maybe (runAsyncT y) (return . Just) mx
95 _ -> maybe (runAsyncT y) (return . Just) mx
96
96
97−-- XXX remove this, use mzero instead
98−-- | A synonym of 'empty' that can be used in a monadic expression. It stops
99−-- the computation, which allows the next computation in an 'Alternative'
100−-- ('<|>') composition to run.
101−stop :: Alternative m => m stopped
102−stop = empty
103−
104------------------------------------------------------------------------------
97------------------------------------------------------------------------------
105-- Monad
98-- Monad
106------------------------------------------------------------------------------
99------------------------------------------------------------------------------