Rewrite Bellman-Ford and min-cost flow, especially to stop the latter from crashing.

[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 ()