diff options
author | tomsmeding <tom.smeding@gmail.com> | 2017-09-02 15:46:42 +0200 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2017-09-02 15:51:07 +0200 |
commit | 45e9991a1f83974c3459037f4791d865f5b342f1 (patch) | |
tree | 0ca233c3e9a8c8e38472ea0b6bc8b115e39c9c86 /Utils.hs | |
parent | 35b17357b5b55e73c6bbc59e7dae094412b7b02a (diff) |
Proper struct assignment and optimisations
Diffstat (limited to 'Utils.hs')
-rw-r--r-- | Utils.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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" |