From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 19 Aug 2009 10:31:48 +0000 (+0200)
Subject: Add andM and orM utility functions.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=363508934b28a8d22af5689e87a0013aa2f935fa;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Add andM and orM utility functions.
---

diff --git "a/c\316\273ash/CLasH/Utils.hs" "b/c\316\273ash/CLasH/Utils.hs"
index aecbfcf..822bd55 100644
--- "a/c\316\273ash/CLasH/Utils.hs"
+++ "b/c\316\273ash/CLasH/Utils.hs"
@@ -46,3 +46,7 @@ concatM = Monad.liftM concat
 
 isJustM :: (Monad m) => m (Maybe a) -> m Bool
 isJustM = Monad.liftM Maybe.isJust
+
+andM, orM :: (Monad m) => m [Bool] -> m Bool
+andM = Monad.liftM and
+orM = Monad.liftM or