Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv2495/src/Graphics/UI/GIO
Modified Files:
Types.hs
Log Message:
Remove isJust, isNothing and when functions.
Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Types.hs,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Types.hs 7 Apr 2003 21:03:10 -0000 1.8
--- Types.hs 13 Apr 2003 19:12:07 -0000 1.9
***************
*** 92,97 ****
-- ** Misc.
- , isNothing, isJust
- , when
, bounded
--- 92,95 ----
***************
*** 109,124 ****
import Graphics.UI.Port.Colors
import Control.Concurrent.MVar
- import Control.Monad( when )
{--------------------------------------------------------------------
Misc.
--------------------------------------------------------------------}
- isNothing, isJust :: Maybe a -> Bool
-
- isNothing Nothing = True
- isNothing other = False
-
- isJust (Just _) = True
- isJust other = False
-
bounded :: Ord a => a -> a -> a -> a
--- 107,113 ----
|
