From c46bdd4565d8c59c9c7a75ff1d08fdd47be19754 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 6 Aug 2009 19:06:43 +0200
Subject: [PATCH] Add isJustM helper function.

---
 "c\316\273ash/CLasH/Utils.hs" | 2 ++
 1 file changed, 2 insertions(+)

diff --git "a/c\316\273ash/CLasH/Utils.hs" "b/c\316\273ash/CLasH/Utils.hs"
index 484fe15..aecbfcf 100644
--- "a/c\316\273ash/CLasH/Utils.hs"
+++ "b/c\316\273ash/CLasH/Utils.hs"
@@ -44,3 +44,5 @@ concatM :: (Monad m) =>
   -> m [a]
 concatM = Monad.liftM concat
 
+isJustM :: (Monad m) => m (Maybe a) -> m Bool
+isJustM = Monad.liftM Maybe.isJust
-- 
2.30.2