[match/match.git] / program / MonadStuff.hs

module MonadStuff (nop) where

-- Useful for "if this, then mutate that, else do nothing"
nop :: Monad m => m ()
nop = return ()
Commit	Line	Data
5a07db44 MM	1	module MonadStuff (nop) where
	2
	3	-- Useful for "if this, then mutate that, else do nothing"
	4	nop :: Monad m => m ()
	5	nop = return ()