1 files changed, 4 insertions, 0 deletions
diff --git a/Utils.hs b/Utils.hs
index 51eecf8..1d34a5c 100644
--- a/Utils.hs
+++ b/Utils.hs
@@ -14,3 +14,7 @@ contains l v = isJust $ find (== v) l
 
 roundUp :: Integral a => a -> a -> a
 roundUp n sz = (n + sz - 1) `div` sz * sz
+
+assertM :: Monad m => Bool -> m ()
+assertM True = return ()
+assertM False = error "assertM failed"