[htoolkit-cvs] gio/src/Graphics/UI/GIO Process.hs,1.4,1.5

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv31855/src/Graphics/UI/GIO

Modified Files:
	Process.hs 
Log Message:
Be Haskell98


Index: Process.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Process.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Process.hs	4 Jul 2003 17:39:04 -0000	1.4
--- Process.hs	20 Oct 2003 10:17:20 -0000	1.5
***************
*** 27,34 ****
  import Graphics.UI.Port(ConfigKey(..))
  
! data Process
  
  pc :: Process
! pc = error "The Process is an abstract object and cannot be evaluated"
  
  instance Dismissible Process where
--- 27,34 ----
  import Graphics.UI.Port(ConfigKey(..))
  
! data Process = Process
  
  pc :: Process
! pc = Process
  
  instance Dismissible Process where