[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 9208215867622ec0cd4af1829f465087903fde6d
Author: John Goerzen <jgoerzen at complete.org>
Date:   Thu Dec 16 02:42:43 2004 +0100

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

diff --git a/ChangeLog b/ChangeLog
index 053221b..300e5c0 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:42:43 GMT	John Goerzen <jgoerzen at complete.org>	patch-72
+
+    Summary:
+      Checkpointing
+    Revision:
+      missingh--head--0.7--patch-72
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/HVIO.hs
+
+
 2004-12-15 19:23:05 GMT	John Goerzen <jgoerzen at complete.org>	patch-71
 
     Summary:
diff --git a/libsrc/MissingH/HVIO.hs b/libsrc/MissingH/HVIO.hs
index a840aa1..f6cb040 100644
--- a/libsrc/MissingH/HVIO.hs
+++ b/libsrc/MissingH/HVIO.hs
@@ -39,7 +39,7 @@ module MissingH.HVIO(-- * Implementation Classes
                      HVIOSeeker(..),
                      -- * Standard Virtual IO features
                      -- | Note: Handle is a member of all classes by default.
-                     StreamReader
+                     StreamReader, newStreamReader
                     )
 where
 
@@ -212,7 +212,7 @@ vioc_set :: VIOCloseSupport a -> a -> IO ()
 vioc_set x newdat = modifyIORef x (\ (stat, _) -> (stat, newdat))
 
 ----------------------------------------------------------------------
--- Stream Readers/Writers
+-- Stream Readers
 ----------------------------------------------------------------------
 
 {- | Simulate I\/O based on a string buffer.
@@ -221,6 +221,10 @@ This is lazy!
  -}
 newtype StreamReader = StreamReader (VIOCloseSupport String)
 
+newStreamReader :: String -> IO StreamReader
+newStreamReader s = do ref <- newIORef (True, s)
+                       return (StreamReader ref)
+
 srv (StreamReader x) = x
 instance Show StreamReader where
     show _ = "<StreamReader>"

-- 
haskell-testpack