[htoolkit-cvs] gio/src/Graphics/UI/GIO Types.hs,1.8,1.9

[<kr_...@us...>]

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 ----