X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/08532bcc65c3e99738cddecdd86e1a7904100119..5a07db44406bad03321a90b0814cc4496c6b7d63:/program/MonadStuff.hs

diff --git a/program/MonadStuff.hs b/program/MonadStuff.hs
new file mode 100644
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 ()