From: Matthijs Kooijman 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