[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit e0f87fcac3ca3c0900e3475eb7fbbdfed0b4b449
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Dec 16 02:11:15 2004 +0100

    Checkpointing
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-69)

diff --git a/ChangeLog b/ChangeLog
index bd24efb..b0997ef 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-15 19:11:15 GMT	John Goerzen <jgoerzen at complete.org>	patch-69
+
+    Summary:
+      Checkpointing
+    Revision:
+      missingh--head--0.7--patch-69
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/HVIO.hs
+
+
 2004-12-15 19:05:23 GMT	John Goerzen <jgoerzen at complete.org>	patch-68
 
     Summary:
diff --git a/libsrc/MissingH/HVIO.hs b/libsrc/MissingH/HVIO.hs
index 84caa80..0adf6ab 100644
--- a/libsrc/MissingH/HVIO.hs
+++ b/libsrc/MissingH/HVIO.hs
@@ -194,8 +194,19 @@ instance HVIOSeeker Handle where
 ----------------------------------------------------------------------
 -- VIO Support
 ----------------------------------------------------------------------
-data VIOCloseSupport a = VIOCloseSupport {isOpen :: Bool,
-                                          vData :: a}
+type VIOCloseSupport a = (Bool, a)
+
+vioc_isopen :: VIOCloseSupport a -> Bool
+vioc_isopen x = fst x
+
+vioc_get :: VIOCloseSupport a -> a
+vioc_get x = snd x
+
+vioc_close :: VIOCloseSupport a -> VIOCloseSupport a
+vioc_close (_, dat) = (False, dat)
+
+vioc_update :: VIOCloseSupport a -> a -> VIOCloseSupport a
+vioc_update (stat, dat) newval = (stat, newval)
 
 ----------------------------------------------------------------------
 -- Stream Readers/Writers
@@ -205,5 +216,4 @@ data VIOCloseSupport a = VIOCloseSupport {isOpen :: Bool,
 
 This is lazy!
  -}
-data StreamReader = StreamReader (IORef (VIOCloseSupport String))
-
+newtype StreamReader = StreamReader (VIOCloseSupport String)

-- 
haskell-testpack