From fad4514781e0e321a651504fa514b37becf9e072 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sun, 30 Sep 2007 20:19:12 +0200
Subject: Removed fromIMaybe from Tabbed ad added it to Invisible

darcs-hash:20070930181912-32816-142656b555beb7701117f43c1e20837e2daeb589.gz
---
 Invisible.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Invisible.hs')

diff --git a/Invisible.hs b/Invisible.hs
index 8a5295c..91659c5 100644
--- a/Invisible.hs
+++ b/Invisible.hs
@@ -17,6 +17,7 @@ module XMonadContrib.Invisible (
                              -- $usage
                              Invisible (..)
                             , whenIJust
+                            , fromIMaybe
                             ) where
 
 -- $usage
@@ -41,3 +42,7 @@ instance (Functor m, Monad m) => Functor (Invisible m) where
 whenIJust :: (Monad m) => Invisible Maybe a -> (a -> m ()) -> m ()
 whenIJust (I (Just x)) f  = f x
 whenIJust (I  Nothing) _  = return ()
+
+fromIMaybe :: a -> Invisible Maybe a -> a
+fromIMaybe _ (I (Just x)) = x
+fromIMaybe a (I  Nothing) = a
-- 
cgit v1.2.3