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

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

diff --git a/program/MonadStuff.hs b/program/MonadStuff.hs
new file mode 100644 (file)
index 0000000..904fa83
--- /dev/null
+++ b/program/MonadStuff.hs
@@ -0,0 +1,5 @@
+module MonadStuff (nop) where
+
+-- Useful for "if this, then mutate that, else do nothing"
+nop :: Monad m => m ()
+nop = return ()